CP/M MACRO ASSEM 2.0 



#001 



*** Cbios For CP/M Ver. 2.2 *** 



******************************************************************* 

* * 

* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL * 

* REVS, AND MODELS A & B) . HANDLES DISKETTES WITH SECTOR SIZES * 

* OF 128 BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE * 

* DENSITY. THERE ARE CONDITIONAL ASSEMBLIES FOR DISKUS HARD * 

* DISK CONTROLLER. * 

* * 

* WRITTEN BY BOBBY DALE GIFFORD. * 

* 12/8/80 * 



* CUSTOMIZED BY JAY O'BRIEN 

* 1/16/82 
* 

* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 
* 



* 


TRK SEC 


1 


= 


FIRST SECTOR OF COLD 


* 





2 


= 


COLD BOOT 256. 


* 





3 


= 


COLD BOOT 512. 


* 





4 


— 


COLD BOOT 1024. 


* 





5 


— 


WARM BOOT 256. 


* 





6 


= 


WARM BOOT 512. 


* 





7 


= 


WARM BOOT 1024. 


* 





8 


= 


COLD/ WARM BOOT. 


* 





9 


= 


FIRMWARE. 


* 





10 


= 


FIRMWARE+80H. 


* 





11 


= 


FIRMWARE+100H 


* 





12 


= 


FIRMWARE+180H. 


* 





13 


= 


FIRMWARE+200H. 


* 





14 


= 


FIRMWARE+280H. 


* 





15 


= 


FIRMWARE+300H. 


* 





16 


= 


FIRMWARE+380H. 


* 





17 


= 


CCP. 


* 





10 


= 


CCP+80H. 


* 





12 


= 


CCP+100H. 


* 





14 


= 


CCP+180H. 


* 





16 


= 


CCP+200H. 


* 





18 


= 


CCP+280H. 


* 





20 


= 


CCP+300H. 


* 





22 


= 


CCP+380H. 


* 





24 


= 


CCP+400H. 


* 





26 


= 


CCP+480H. 


* 


1 




= 


REST OF CP/M. 



BOOT. 



* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
***************************************************************** 



E700H 

80H 

80H 

80H 

80H 

80H 

80H 

2C00H 

E400H 

E480H 

E500H 

E580H 

E600H 

E680H 

E700H 

E780H 

2700H 

2780H 

2800H 

2880H 

2900H 

2930H 

2A00H 

2A80H 

2B00H 

2B80H 

2C00H-4FFFH 






TITLE 



'*** Cbios For CP/M Ver. 2.2 ***' 



***************************************************************** 

* * 

* THE FOLLOWING REVISION NUMBER IS IN REFERENCE TO THE CP/M * 

* 2.2 CBIOS. * 

* * 
***************************************************************** 



CP/M MACRO ASSEM 2.0 #002 *** Cbios For CP/M Ver. 2.2 *** 



001C = 
0016 = 



REVNUM EQU 28 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 

* 2D FLOPPIES AND THE HARD DISK CONTROLLERS. * 

* * 
***************************************************************** 



0001 m 



0001 

0002 

0001 
0000 
0000 



FIRST 



EQU 



0001 = 



MAXHD 


EQU 


1 


MAXFLOP 


EQU 


2 


M26 


EQU 


1 


M20 


EQU 





M10 


EQU 







IF 


M10 OR M20 


SDELAY 


EQU 
ELSE 





SDELAY 


EQU 
ENDIF 


1 



= FLOPPIES ARE A,B,C,D DRIVES AND 

HARD DISK ARE E,F,G,H 

1 » HARD DISKS ARE A,B,C,D DRIVES AND 

FLOPPIES ARE E,F,G,H 
SET TO NUMBER OF HARD DISKS 
SET TO NUMBER OF FLOPPIES 

,-SET ONLY ONE OF THESE VARIABLES 



; SOFTWARE HEAD SETTLE DELAY (0 = NO, 1 = YES) 



001A 
0003 
0020 



MREV EQU 
LOGDSK EQU 
HDSPT EQU 



26*M26+20*M20+10*M10 

3*M26+3*M20+2*M10 

32*M26+21*M20+21*M10 



;HARD DISK TYPE 
.•LOGICAL DISKS PER DRIVE 
.•SECTORS PER TRACK 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES RELATE THE THINKER TOYS 2D CONTROLLER. * 

* IF THE CONTROLLER IS NON STANDARD (0E000H) ONLY THE ORIGIN * 

* EQUATE NEED BE CHANGED. THIS VERSION OF THE CBIOS WILL WORK * 

* WITH 2D CONTROLLER BOARDS REV 0, 1, 3, 3.1, 4, MODEL B. * 

* * 

***************************************************************** 









IF 


MAXFLOP NE ; 


INCLUDE DISCUS 


F000 


= 


ORIGIN 


EQU 


0F000H 








F400 


= 


DJRAM 


EQU 


ORIGIN+400H ; 


DISK 


JOCKEY 


2D 


F400 


= 


DJBOOT 


EQU 


DJRAM 


'DISK 


JOCKEY 


2D 


F003 


5= 


DJCIN 


EQU 


ORIGIN+3H 


•DISK 


JOCKEY 


2D 


F006 


ST 


DJCOUT 


EQU 


ORIGIN+6H 


•DISK 


JOCKEY 


2D 


F409 


= 


DJHOME 


EQU 


DJRAM+9H 


•DISK 


JOCKEY 


2D 


F40C 


= 


DJTRK 


EQU 


DJRAM+0CH 


•DISK 


JOCKEY 


2D 


F40F 


= 


DJSEC 


EQU 


DJRAM+0FH 


•DISK 


JOCKEY 


2D 


F412 


SB 


DJDMA 


EQU 


DJRAM+012H 


•DISK 


JOCKEY 


2D 


F415 


= 


DJREAD 


EQU 


DJRAM+15H 


•DISK 


JOCKEY 


2D 


F418 


ss 


DJWRITE 


EQU 


DJRAM+18H 


•DISK 


JOCKEY 


2D 


F41B 


= 


DJSEL 


EQU 


DJRAM+1BH 


•DISK 


JOCKEY 


2D 


F021 


= 


DJTSTAT 


EQU 


ORIGIN+21H 


•DISK 


JOCKEY 


2D 



RAM ADDRESS 
INITIALIZATION 
CHARACTER INPUT ROUTINE 
CHARACTER OUTPUT ROUTINE 
TRACK ZERO SEEK 
TRACK SEEK ROUTINE 
SET SECTOR ROUTINE 
SET DMA ADDRESS 
READ ROUTINE 
WRITE ROUTINE 
SELECT DRIVE ROUTINE 
TERMINAL STATUS ROUTINE 



CP/M MACRO ASSEM 2.0 #003 *** Cbios For CP/M Ver. 2.2 *** 



F427 = 
F42A = 
F42D = 
F430 = 
0008 = 



DJSTAT EQU 
DJERR EQU 
DJDEN EQU 
DJSIDE EQU 
DBLSID EQU 

ENDIF 



DJRAM+2 7H 
DJRAM+2AH 
DJRAM+2 DH 
DJRAM+30H 
8 



;DISK JOCKEY 2D STATUS ROUTINE 
;DISK JOCKEY 2D ERROR, FLASH LED 
;DISK JOCKEY 2D SET DENSITY ROUTINE 
;DISK JOCKEY 2D SET SIDE ROUTINE 
?SIDE BIT FROM CONTROLLER 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. * 

* * 
***************************************************************** 



0050 
0050 
0050 
0053 
0052 
0051 
0051 
0002 
0001 
0002 
0004 
0008 
0010 
0020 
0040 
0004 
00FB 
0004 
0200 
000F 
000B 
0005 
0007 
00F7 
00FC 
0000 
0008 
0001 
0005 





IF 


MAXHD NE 


HDORG 


EQU 


50H 


HDSTAT 


EQU 


HDORG 


HDCNTL 


EQU 


HDORG 


HDDATA 


EQU 


HDORG+3 


HDFUNC 


EQU 


HDORG+2 


HDCMND 


EQU 


HDORG+1 


HDRESLT 


EQU 


HDORG+1 


RETRY 


EQU 


2 


TKZERO 


EQU 


1 


OPDONE 


EQU 


2 


COMPLT 


EQU 


4 


TMOUT 


EQU 


8 


WFAULT 


EQU 


10H 


DRVRDY 


EQU 


20H 


INDEX 


EQU 


40H 


PSTEP 


EQU 


4 


NSTEP 


EQU 


0FBH 


HDRLEN 


EQU 


4 


SECLEN 


EQU 


512 


WENABL 


EQU 


0FH 


WRESET 


EQU 


0BH 


SCENBL 


EQU 


5 


DSKCLK 


EQU 


7 


MDIR 


EQU 


0F7H 


NULL 


EQU 


0FCH 


IDBUFF 


EQU 





ISBUFF 


EQU 


8 


RSECT 


EQU 


1 


WSECT 


EQU 
ENDIF 


5 



WANT HARD DISK INCLUDED ? 

HARD DISK CONTROLLER ORIGIN 

HARD DISK STATUS 

HARD DISK CONTROL 

HARD DISK DATA 

HARD DISK FUNCTION 

HARD DISK COMMAND 

HARD DISK RESULT 

RETRY BIT OF RESULT 

TRACK ZERO BIT OF STATUS 

OPERACTION DONE BIT OF STATUS 

COMPLETE BIT OF STATUS 

TIME OUT BIT OF STATUS 

WRITE FAULT BIT OF STATUS 

DRIVE READY BIT OF STATUS 

INDEX BIT OF STATUS 

STEP BIT OF FUNCTION 

STEP BIT MASK OF FUNCTION 

SECTOR HEADER LENGTH 

SECTOR DATA LENGTH 

WRITE ENABLE 

WRITE RESET OF FUNCTION 

CONTROLLER CONTROL 

DISK CLOCK FOR CONTROL 

DIRECTION MASK FOR FUNCTION 

NULL COMMAND 

INITIALIZE DATA COMMAND 

INITIALIZE HEADER COMMAND 

READ SECTOR COMMAND 

WRITE SECTOR COMMAND 



***************************************************************** 

* * 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES. * 

* * 
************************* * * ************************************** 



003C 
A000 
C700 



MSIZE 


EQU 


60 


BIAS 


EQU 


(MSIZE-20)*1024 


CCP 


EQU 


2700H+BIAS 



;MEMORY SIZE OF TARGET CP/M 

; MEMORY OFFSET FROM 20K SYSTEM 

; CONSOLE COMMAND PROCESSOR 



P/M MACRO 


ASSEM 2.0 


#004 


*** Cbios 


CF00 = 


BDOS 


EQU 


CCP+800H 


DD00 = 


BIOS 


EQU 


CCP+1600H 


4A00 « 


OFFSETC 


EQU 


2700H-BIOS 


0004 = 


CDISK 


EQU 


4 


0080 = 


BUFF 


EQU 


80H 


0100 = 


TPA 


EQU 


100H 


00C0 = 


INTIOBY 


EQU 


192 


0003 = 


IOBYTE 


EQU 


3 


0000 = 


WBOT 


EQU 





0005 = 


ENTRY 


EQU 


5 



;BDOS ADDRESS 

; CBIOS ADDRESS 

; OFFSET FOR SYSGEN 

;ADDRESS OF LAST LOGGED DISK 

.•DEFAULT BUFFER ADDRESS 

; TRANSIENT MEMORY 

; INITIAL IOBYTE 

; IOBYTE LOCATION 

;WARM BOOT JUMP ADDRESS 

?BDOS ENTRY JUMP ADDRESS 

***************************************************************** 

* * 

* THE FOLLOWING ARE INTERNAL CBIOS EQUATES. MOST ARE MISC. * 

* CONSTANTS. * 

* * 

***************************************************************** 



000A = 
000D = 
000A = 
001A = 
0003 = 
0006 = 
0008 = 



RETRIES EQU 10 

ACR EQU 0DH 

ALF EQU 0AH 

CLEAR EQU 1AH 

AETX EQU 3 

AACK EQU 6 

VI OX EQU 8H 



;MAX RETRIES ON DISK I/O BEFORE ERROR 

;A CARRIAGE RETURN 

;A LINE FEED 

; CLEAR SCREEN FOR VIO-X 

;ETX CHARACTER 

;ACK CHARACTER 

;BASE PORT FOR VIO-X 



***************************************************************** 

* * 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 

* THE SAME. * 

* * 

***************************************************************** 



DD00 



ORG 



BIOS 



; CBIOS STARTING ADDRESS 



DD00 


C3ABE5 




JMP 


CBOOT 




DD03 


C3AEDE 


WBOOTE 


JMP 


WBOOT 




DD06 


C336DD 




JMP 


CONST 




DD09 


C342DD 




JMP 


CONIN 




DD0C 


C357DD 


COUT 


JMP 


CONOUT 




DD0F 


C377DD 




JMP 


LIST 




DD12 


C36CDD 




JMP 


PUNCH 




DD15 


C362DD 




JMP 


READER 




DD18 


C304DF 




JMP 


HOME 




DD1B 


C346DF 




JMP 


SETDRV 




DD1E 


C306DF 




JMP 


SETTRK 




DD21 


C3F8DE 




JMP 


SETSEC 




DD24 


C3FEDE 




JMP 


SETDMA 




DD27 


C36AE0 




JMP 


READ 




DD2A 


C363E0 




JMP 


WRITE 




DD2D 


C382DD 


w 


JMP 


LISTST 




DD30 


C30BDF 




JMP 


SECTRAN 










IF 


MAXFLOP NE 





DD33 


C31BF4 


DJDRV 


JMP 


DJSEL 





COLD BOOT ENTRY POINT 

WARM BOOT ENTRY POINT 

CONSOLE STATUS ROUTINE 

CONSOLE INPUT 

CONSOLE OUTPUT 

LIST DEVICE OUTPUT 

PUNCH DEVICE OUTPUT 

READER DEVICE INPUT 

HOME DRIVE 

SELECT DISK 

SET TRACK 

SET SECTOR 

SET DMA ADDRESS 

READ THE DISK 

WRITE THE DISK 

LIST DEVICE STATUS 

SECTOR TRANSLATION 



;HOOK FOR SINGLE.COM PROGRAM 



CP/M MACRO ASSEM 2.0 #005 



! ** Cbios For CP/M Ver. 2.2 *** 



ELSE 

JMP 

ENDIF 



DONOP 



***************************************************************** 

* * 

* TERMINAL DRIVER ROUTINES. IOBYTE IS INITIALIZED BY THE COLD * 

* BOOT ROUTINE, TO MODIFY, CHANGE THE "INTIOBY" EQUATE. THE * 

* I/O ROUTINES THAT FOLLOW ALL WORK EXACTLY THE SAME WAY. USING * 

* IOBYTE, THEY OBTAIN THE ADDRESS TO JUMP TO IN ORDER TO EXECUTE* 

* THE DESIRED FUNCTION. THERE IS A TABLE WITH FOUR ENTRIES FOR * 

* EACH OF THE POSSIBLE ASSIGNMENTS FOR EACH DEVICE. TO MODIFY * 

* THE I/O ROUTINES FOR A DIFFERENT I/O CONFIGURATION, JUST * 

* CHANGE THE ENTRIES IN THE TABLES. * 

* * 

***************************************************************** 



F003 sr 

F006 = 



CITTY EQU 
COTTY EQU 



DJCIN 
DJCOUT 



; INPUT FROM THE DISK JOCKEY 2D 
; OUTPUT TO THE DISK JOCKEY 2D 



***************************************************************** 

* * 

* CONST: GET THE STATUS FOR THE CURRENTLY ASSIGNED CONSOLE * 

* DEVICE. THE CONSOLE DEVICE CAN BE GOTTEN FROM IOBYTE, * 

* THEN A JUMP TO THE CORRECT CONSOLE STATUS ROUTINE IS * 

* PERFORMED . * 

* * 

***************************************************************** 



DD36 21B0DD 
DD39 C348DD 



CONST LXI 
JMP 



H,CSTBLE 
CONIN1 



; BEGINNING OF JUMP TABLE 
y SELECT CORRECT JUMP 



***************************************************************** 

* * 

* CSREADER: IF THE CONSOLE IS ASSIGNED TO THE READER THEN A * 

* JUMP WILL BE MADE HERE, WHERE ANOTHER JUMP WILL * 

* OCCUR TO THE CORRECT READER STATUS. * 

* * 

***************************************************************** 



DD3C 21B8DD 
DD3F C365DD 



CSREADR LXI 
JMP 



H,CSRTBLE 
READERA 



; BEGINNING OF READER STATUS TABLE 



***************************************************************** 

* * 

* CONIN: TAKE THE CORRECT JUMP FOR THE CONSOLE INPUT ROUTINE. * 

* THE JUMP IS BASED ON THE TWO LEAST SIGNIFICANT BITS OF * 

* IOBYTE . * 

* * 

***************************************************************** 



DD42 CDDDE0 
DD45 2188DD 



CONIN CALL 
LXI 



FLUSH 
H,CITBLE 



; FLUSH THE DISK BUFFER 

; BEGINNING OF CHARACTER INPUT TABLE 



* ENTRY AT CONIN1 WILL DECODE THE TWO LEAST SIGNIFICANT BITS 



CP/M macro ASSEM 2.0 



#006 



*** Cbios For CP/M Ver. 2.2 *** 



OF IOBYTE. THIS IS USED BY CONIN, CONOUT, AND CONST. 



DD4S 3A0300 
DD4B 17 



C0NIN1 



LDA 
RAL 



IOBYTE 



* ENTRY AT SELDEV WILL FORM AN OFFSET INTO THE TABLE POINTED 

* TO BY H&L AND THEN PICK UP THE ADDRESS AND JUMP THERE. 



DD4C E606 SELDEV ANI 


6H 


DD4E 1600 


MVI 


D,0 


DD50 5F 


MOV 


E,A 


DD51 19 


DAD 


D 


DD52 7E 


MOV 


A,M 


DD53 23 


I NX 


H 


DD54 66 


MOV 


H,M 


DD55 6F 


MOV 


L,A 


DD56 E9 


PCHL 





7 STRIP OFF UNWANTED BITS 
;FORM OFFSET 

;ADD OFFSET 

yPICK UP HIGH BYTE 

;PICK UP LOW BYTE 
;FORM ADDRESS 
;GO THERE I 

***************************************************************** 

* * 

* CONOUT: TAKE THE PROPER BRANCH ADDRESS BASED ON THE TWO LEAST * 

* SIGNIFICANT BITS OF IOBYTE. * 

* * 

***************************************************************** 



DD57 C5 
DD58 CDDDE0 
DD5B CI 
DD5C 2190DD 
DD5F C348DD 



CONOUT PUSH B 

CALL FLUSH 

POP B 

LXI H,COTBLE 

JMP CONIN1 



;SAVE THE CHARACTER 

; FLUSH THE DISK BUFFER 

; RESTORE THE CHARACTER 

7 BEGINNING OF THE CHARACTER OUT TABLE 

;DO THE DECODE 



***************************************************************** 

* * 

* READER: SELECT THE CORRECT READER DEVICE FOR INPUT. THE * 

* READER IS SELECTED FROM BITS 2 AND 3 OF IOBYTE. * 

* * 

***************************************************************** 



DD62 21A8DD 



READER LXI 



H,RTBLE 



; BEGINNING OF READER INPUT TABLE 



* ENTRY AT READERA WILL DECODE BITS 2 & 3 OF IOBYTE, USED 

* BY CS READER. 
* 



DD65 3A0300 



READERA LDA 



IOBYTE 



* ENTRY AT READER1 WILL SHIFT THE BITS INTO POSITION, USED 

* BY LIST AND PUNCH. 



DD68 IF 



RE ADR 1 RAR 



CP/M MACRO ASSEM 2.0 #007 *** Cbios For CP/M Ver. 2.2 *** 
DD69 C34CDD JMP SELDEV 



***************************************************************** 

* * 

* PUNCH: SELECT THE CORRECT PUNCH DEVICE. THE SELECTION COMES * 

* FROM BITS 4&5 OF IOBYTE. * 

* * 

***************************************************************** 



DD6C 21A0DD 
DD6F 3A0300 



PUNCH 



LXI 

LDA 



H,PTBLE 
IOBYTE 



; BEGINNING OF PUNCH TABLE 



* ENTRY AT PNCH1 ROTATES BITS A LITTLE MORE IN PREP FOR 

* SELDEV, USED BY LIST. 



DD72 IF 
DD73 IF 
DD74 C368DD 



PNCH1 RAR 
RAR 
JMP 



READR1 



***************************************************************** 

* * 

* LIST: SELECT A LIST DEVICE BASED ON BITS 6&7 OF IOBYTE * 

* * 

***************************************************************** 



DD77 2198DD 
DD7A 3A0300 
DD7D IF 
DD7E IF 
DD7F C372DD 



LIST LXI 

LIST1 LDA 

RAR 

RAR 

JMP 



H,LTBLE 
IOBYTE 



PNCH1 



; BEGINNING OF THE LIST DEVICE ROUTINES 



***************************************************************** 

* * 

* LISTST: GET THE STATUS OF THE CURRENTLY ASSIGNED LIST DEVICE * 

* * 

***************************************************************** 



DD82 21C0DD 
DD85 C37ADD 



LISTST LXI 
JMP 



H,LSTBLE 
LIST1 



; BEGINNING OF THE LIST DEVICE STATUS 



***************************************************************** 

* * 

* IF CUSTOMIZING I/O ROUTINES IS BEING PERFORMED, THE TABLE * 

* BELOW SHOULD BE MODIFIED TO REFLECT THE CHANGES. ALL I/O * 

* DEVICES ARE DECODED OUT OF IOBYTE AND THE JUMP IS TAKEN FROM * 

* THE FOLLOWING TABLES. * 

* * 

***************************************************************** 



* CONSOLE INPUT TABLE 
* 



DD88 F3DD 



CITBLE DW 



CIUC1 



? INPUT FROM USER CONSOLE 1 (CURRENTLY 



CP/M macro ASSEM 2.0 



#008 



*** Cbios For CP/M Ver. 2.2 *** 



DD8A 08DE 
DD8C 62DD 
DD8E 03F0 



DW 


CICRT 


DW 


READER 


DW 


CITTY 



SWBD PARALLEL PORT 4) 
INPUT FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
INPUT FROM READER (DEPENDS ON READER 

SELECTION) 
INPUT FROM TTY (CURRENTLY INPUT FROM 

DISK JOCKEY 2D) 







* 
* 


CONSOLE OUTPUT TABLE 


DD90 


25DE 


COTBLE 


DW 


COCRT ; 


DD92 


25DE 






DW 


COCRT ; 


DD94 


77DD 






DW 


LIST ; 


DD96 


06F0 






DW 


COTTY 



OUTPUT TO CRT 
OUTPUT TO CRT 

OUTPUT TO LIST DEVICE (DEPENDS ON 
BITS 6&7 OF IOBYTE) 

OUTPUT TO TTY (CURRENTLY OUTPUT TO 
DISK JOCKEY 2D) 



* LIST DEVICE TABLE 



DD98 06F0 
DD9A 46DE 
DD9C C9DD 
DD9E D4DD 



LTBLE 



DW 


COTTY 


DW 


COPTR 


DW 


COLPT 


DW 


COUL1 



OUTPUT TO TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO LINE PRINTER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER LINE PRINTER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 







* 
* 


PUNCH 


DEVICE 


TABLE 


DDA0 


06F0 


PTBLE 


DW 


COTTY 


DDA2 


46DE 






DW 


COPTR 


DDA4 


C9DD 






DW 


COUP1 


DDA6 


C9DD 






DW 


COUP 2 



OUTPUT TO THE TTY (CURRENTLY ASSIGNED 

BY INTIOBY, OUTPUT TO 2D) 
OUTPUT TO PRINTER 

OUTPUT TO USER PUNCH 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

OUTPUT TO USER PUNCH 2 (CURRNTLLY 
SWITCHBOARD SERIAL PORT 1) 



* READER DEVICE INPUT TABLE 



DDA8 03F0 
DDAA 08DE 
DDAC 08DE 



RTBLE 



DW 
DW 
DW 



CITTY 



CIPTR 



C-IUR1 



jt INPUT FROM TTY (CURRENTLY ASSIGNED 
BY INTIOBY, INPUT FROM 2D) 

INPUT FROM PAPER TAPE READER (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 

INPUT FROM USER READER 1 (CURRENTLY 
SWITCHBOARD SERIAL PORT 1) 



CP/M MACRO ASSEM 2.0 #009 
DDAE 08DE DW 



*** Cbios For CP/M Ver. 2.2 *** 



CIUR2 



; INPUT FROM USER READER 2 (CURRENTLY 
; SWITCHBOARD SERIAL PORT 1) 







* 
* 


CONSOLE STATUS TABLE 


DDB0 


FFDD 


CSTBLE 


DW 


CSUC1 


DDB2 


1CDE 






DW 


CSCRT 


DDB4 


3CDD 






DW 


CSREADR 


DDB6 


14DE 






DW 


CSTTY 



* STATUS FROM READER DEVICE 
* 



STATUS FROM SWBD PARALLEL PORT 4, AS 

READ FROM ATTN BIT 0) 
STATUS FROM CRT (CURRENTLY SWITCHBOARD 

SERIAL PORT 1) 
STATUS FROM READER (DEPENDS ON READER DEVICE ) 

STATUS OF TTY (CURRENTLY STSTUS FROM 
DISK JOCKEY 2D) 



DDB8 


14DE 


CSRTBLE 


DW 


CSTTY 


DDBA 


1CDE 




DW 


CSPTR 


DDBC 


1CDE 




DW 


CSUR1 


DDBE 


1CDE 




DW 


CSUR2 



STATUS FROM TTY (CURRENTLY ASSIGNED 

BY INTIOBY, STATUS OF 2D) 
STATUS FROM PAPER TAPE READER (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS FROM USER READER 1 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 
STATUS OF USER READER 2 (CURRENTLY 

SWITCHBOARD SERIAL PORT 1) 



* STATUS FROM LIST DEVICE 

* 



DDC0 


35DE 


LSTBLE 


DW 


READY 


DDC2 


35DE 




DW 


READY 


DDC4 


30DE 




DW 


LSLPT 


DDC6 


30DE 




DW 


LSLPT 



; CONSOLE ALWAYS READY 
;GET LIST STATUS 



DDC8 00 



***************************************************************** 

* * 

* ROUTINES FOR MY SYSTEM. J. J. O'BRIEN * 

* * 

***************************************************************** 

NOP 
***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET OUTPUT DEVICE TO OUTPUT TO THE * 

* SWITCHBOARD SERIAL PORT 1. * 

* * 

***************************************************************** 



DDC9 


= 


COPTP 


EQU 


$ 


DDC9 


— 


COUPl f 


EQU 


$■■'•■ 


DDC9 


= 


COUP2 


EQU 


$ 


DDC9 


DB02 


COLPT 


IN 


2 


DDCB 


E680 




ANI 


80H 


DDCD 


CAC9DD 




JZ 


COLPT 



; OUTPUT FROM PAPER TAPE PUNCH 

; OUTPUT FROM USER PUNCH 1 

; OUTPUT FROM USER PUNCH 2 

; OUTPUT FROM LINE PRINTER, GET STATUS 

;WAIT UNTIL OK TO SEND 



CP/M MACRO ASSEM 2.0 #010 *** Cbios For CP/M Ver. 2.2 *** 



DDD0 79 
DDD1 D301 
DDD3 C9 



DDD4 
DDD7 
DDDA 
DDDB 
DDDE 
DDDF 
DDE1 
DDE4 
DDE6 
DDE9 
DDEC 
DDEE 
DDF1 



CDC9DD 

3AF2DD 

3D 

32F2DD 

C0 

3E4E 

32F2DD 

0E03 

CDC9DD 

CD08DE 

FE06 

C2E9DD 

C9 



DDF2 32 



DDF3 DB03 
DDF5 E601 
DDF7 CAF3DD 
DDFA DB04 
DDFC E67F 
DDFE C9 

DDFF DB03 
DE01 E601 
DE03 EE01 
DE05 C317DE 



DE08 = 
DE08 = 
DE08 = 



MOV 
OUT 
RET 



A,C 
1 



; OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* CUSTOM I/O PRINTER DRIVER FOR DIABLO PRINTER WITH 1200 BAUD * 

* ETX/ACK HANDSHAKE. * 

* * 
***************************************************************** 



COUL1 



PWAIT 



CALL 

LDA 

DCR 

STA 

RNZ 

MVI 

STA 

MVI 

CALL 

CALL 

CPI 

JNZ 

RET 



COUNT DB 



COLPT 
COUNT 
A 
COUNT 

A, 78 

COUNT 

C,AETX 

COLPT 

CIPTR 

AACK 

PWAIT 



50 



7 OUTPUT THE CHARACTER 



**************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT TO COME FROM THE SWBD * 

* PARALLEL PORT 4, WITH STATUS ON ATTENTION PORT BIT 0. * 

* * 

**************************************************************** 



CIUC1 



CSUC1 



IN 

ANI 

JZ 

IN 

ANI 

RET 

IN 
ANI 
XRI 
JMP 



3 
1 

CIUC1 

4 

7FH 



3 
1 
1 

STAT 



;GET ATTENTION BYTE 
;GET BIT ONLY 
;WAIT FOR CHARACTER 
7 GET CHARACTER 
; STRIP OFF THE PARITY 



7 GET ATTENTION BYTE 

7 GET BIT ONLY 

7 CHANGE POLARITY 

7 RETURN PROPER INDICATION 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES SET THE INPUT FROM THE DEVICES TO COME * 

* FROM THE SWITCHBOARD SERIAL PORT 1. * 

* * 
******* ********************************************************** 



CICRT EQU $ 
CIUR1 EQU $ 
CIUR2 EQU $ 



7 INPUT FROM CRT 

7 INPUT FROM USER READER 1 

7 INPUT FROM USER READER 2 



CP/M MACRO ASSEM 2.0 #011 *** Cbios For CP/M Ver. 2.2 *** 



DE08 DB02 


CIPTR 


IN 


2 


DE0A E640 




ANI 


40H 


DE0C CA08DE 




JZ 


CIPTR 


DE0F DB01 




IN 


1 


DE11 E67F . 




ANI 


7FH 


DE13 C9 




RET 





; INPUT FROM PAPER TAPE READER, GET STATUS 
;WAIT FOR CHARACTER 



; STRIP OFF THE PARITY 



***************************************************************** 

* * 

* CONSOLE STATUS ROUTINES, TEST IF A CHARACTER HAS ARRIVED. * 

* * 

***************************************************************** 



DE14 CD21F0 
DE17 3E00 
DE19 C0 
DE1A 3D 
DE1B C9 



CSTTY CALL DJTSTAT 
STAT MVI A,0 

RNZ 

DCR A 

RET 



; STATUS FROM DISK JOCKEY 2D 

;PREP FOR ZERO RETURN 

; NOTHING FOUND 

; RETURN WITH 0FFH 



***************************************************************** 

* * 

* THE FOLLOWING EQUATES CAUSE THE DEVICES TO GET STATUS FROM * 

* THE SWITCHBOARD SERIAL PORT 1. * 

* * 
***************************************************************** 

; STATUS OF USER READER 1 

; STATUS OF USER READER 2 

; STATUS OF PAPER TAPE READER 

; STATUS FROM CRT, GET STATUS 

; STRIP OF DATA READY BIT 

;MAKE CORRECT POLARITY 

; RETURN PROPER INDICATION 

***************************************************************** 

* * 

* VIO-X VIDEO DRIVER * 

* * 
***************************************************************** 



DE1C 


= 


CSUR1 


EQU 


$ 


DE1C 


= 


CSUR2 


EQU 


$ 


DE1C 


= 


CSPTR 


EQU 


$ 


DE1C 


DB02 


CSCRT 


IN 


2 


DE1E 


E640 




ANI 


40H 


DE20 


EE40 




XRI 


40H 


DE22 


C317DE 




JMP 


STAT 



DE25 DB09 


COCRT 


IN 


VIOX+1 


DE27 E601 




ANI 


1 


DE29 CA25DE 




JZ 


COCRT 


DE2C 79 




MOV 


A,C 


DE2D D308 




OUT 


VI OX 


DE2F C9 




RET 





;READ STATUS PORT 
;MASK TXRDY BIT 
;WAIT FOR READY 
;GET CHAR 
; OUTPUT CHAR 
;ALL DONE 

***************************************************************** 

* * 

* LIST DEVICE STATUS ROUTINES. * 

* * 
***************************************************************** 



DE30 DB02 
DE32 E680 
DE34 C8 



LSLPT 



IN 

ANI 

RZ 



2 

80H 



;ALL OTHER DEVICES WAIT 



CP/M MACRO ASSEM 2.0 #012 *** Cbios For CP/M Ver. 2.2 *** 

A,0FFH 



DE35 3EFF 
DE37 C9 



READY MVI 
RET 

***************************************************************** 

* * 

* THIS INITIALLIZING ROUTINE SAMPLES BIT OF SWBD PORT 7 TO * 

* DETERMINE IF THE KEYBOARD IS PLUGGED IN. IF THE KEYBOARD IS * 

* PLUGGED IN, THE LSB RETURNS A 0. OTHERWISE, IT IS A 1. * 

* THIS 1 IS ADDED TO IOBYTE TO CHANGE THE CONSOLE INPUT FROM * 

* THE SWBD PARALLEL PORT 4 (THE KEYBOARD) TO THE SWBD SERIAL * 

* PORT THAT RECEIVES RS232 DATA FROM THE RS232 TERMINAL. * 

* * 

***************************************************************** 



DE38 


0E1A 


TINIT 


MVI 


C, CLEAR 


DE3A 


DB07 




IN 


7 


DE3C 


E601 




ANI 


1 


DE3E 


C6C0 




ADI 


I NT I OB Y 


DE40 


320300 




STA 


IOBYTE 


DE43 


C30CDD 




JMP 


COUT 



; INITIALIZE THE TERMINAL ROUTINE 
7 GET KEYBOARD INTERLOCK BYTE 
7 GET BIT 1 ONLY 
7 ADD INTIOBY TO KEYBOARD BIT 
? INITIALIZE IOBYTE 



***************************************************************** 

* * 

* ROUTINE FOR OKIDATA PRINTER * 

* PRINTER IS ON PORT WITH PRINTER READY ON PORT 5 BIT 1 * 

* * 

***************************************************************** 



DE46 DB02 


COPTR 


IN 


2 


DE48 E608 




ANI 


8 


DE4A CA46DE 




JZ 


COPTR 


DE4D DB05 


COPTR1 


IN 


5 


DE4F E601 




ANI 


1 


DE51 CA4DDE 




JZ 


COPTR1 


DE54 79 




MOV 


A,C 


DE55 D300 




OUT 





DE57 C9 




RET 





7 INPUT FROM PORT 2 

7 WAIT UNTIL OK TO SEND 

7 BUFFER FULL? 

?WAIT UNTIL PRINTER READY 
7 OUTPUT THE CHARACTER 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOOTS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H) . * 

* * 
***************************************************************** 



DE58 


218000 


DE5B 


CDFEDE 


DE5E 


3EC3 


DE60 


320000 


DE63 


320500 


DE66 


2103DD 


DE69 


220100 


DE6C 


2106CF 


DE6F 


220600 


DE72 


AF 



GOCPM 



LXI 


H,BUFF 


CALL 


SETDMA 


MVI 


A, (JMP) 


STA 


WBOT 


STA 


ENTRY 


LXI 


H,WBOOTE 


SHLD 


WBOT+1 


LXI 


H,BDOS+6 


SHLD 


ENTRY+1 


XRA 


A 



? SET UP INITIAL DMA ADDRESS 
7 INITIALIZE JUMP TO WARM BOOT 



; INITIALIZE JUMP TO BDOS 
7 ADDRESS IN WARM BOOT JUMP 



7 ADDRESS IN BDOS JUMP 
7A <- 



CP/M MACRO ASSEM 2.0 #013 *** Cbios For CP/M Ver. 2.2 *** 



DE73 


32D6E4 




STA 


BUFSEC 


;DISK JOCKEY BUFFER EMPTY 


DE76 


32DEE0 




STA 


BUFWRTN 


;SET BUFFER NOT DIRTY FLAG 


DE79 


3A0400 




LDA 


CDISK 


;JUMP TO CP/M WITH CURRENTLY 


DE7C 


4F 




MOV 


C,A 




DE7D 


3AAADE 




LDA 


CWFLG 




DE80 


A7 




ANA 


A 




DE81 


11ACDE 




LXI 


D, COLDBEG 


; BEGINNING OF INITIAL COMMAND 


DE84 


3E01 




MVI 


A,COLDEND- 


-COLDBEG+1 ; LENGTH OF COMMAND 


DE86 


CA8EDE 




JZ 


CLDCMND 




DE89 


11ADDE 




LXI 


D,WARMBEG 




DE8C 


3E01 




MVI 


A,WARMEND- 


•WARMBEG+1 


DE8E 


2108C7 


CLDCMND 


LXI 


H,CCP+8 


? COMMAND BUFFER 


DE91 


3207C7 




STA 


CCP+7 




DE94 


47 




MOV 


B,A 




DE95 


CDA5E1 




CALL 


MOVLOP 




DE98 


3AAADE 




LDA 


CWFLG 




DE9B 


A7 




ANA 


A 




DE9C 


3AABDE 




LDA 


AUTOFLG 




DE9F 


CAA3DE 




JZ 


CLDBOT 




DEA2 


IF 




RAR 






DEA3 


IF 


CLDBOT 


RAR 






DEA4 


DA00C7 




JC 


CCP 




DEA7 


C303C7 




JMP 


CCP+3 


7 ENTER CP/M 


DEAA 


00 


CWFLG 


DB 





; COLD/WARM BOOT FLAG 



***************************************************************** 

* * 

* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 

* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* 

* 

* 

* 

* 

♦ •A************************************************************** 



* USED TO GIVE THE COMMAND TO CP/M: 
* 

* = NEVER GIVE COMMAND. 

* 1 = GIVE COMMAND ON COLD BOOTS ONLY. 

* 2 = GIVE THE COMMAND ON WARM BOOTS ONLY. 

* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 



DEAB 00 



AUTOFLG DB 







;AUTO COMMAND FEATURE 



***************************************************************** 

* * 

* IF THERE IS A COMMAND INSERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED. * 

* FOR EXAMPLE: * 

* * 

* COLDBEG DB 'MBASIC MYPROG' * 

* COLDEND DB * 

* * 

* WILL EXECUTE MICROSOFT BASIC, AND MBASIC WILL EXECUTE THE * 

* "MYPROG 1 ' BASIC PROGRAM. * * 

* * 

***************************************************************** 



COLDBEG DB 



;COLD BOOT COMMAND 



CP/M MACRO ASSEM 2.0 #014 *** Cbios For CP/M Ver. 2.2 *** 



DEAC 00 
DEAD 00 



COLDEND DB 
WARM3EG DB 
WARMEND DB 




■ 





;WARM BOOT COMMAND GOES HERE 



***************************************************************** 

* * 

* WBOOT LOADS IN ALL OF CP/M EXCEPT THE CBIOS, THEN INITIALIZES * 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DURING WARM AND COLD BOOTS. * 

* * 

***************************************************************** 



DEAE 


310001 


WBOOT LXI 


SP,TPA 


DEB1 


3E01 


MVI 


A,l 


DEB2 


= 


WFLG EQU 


$-1 


DEB3 


A7 


ANA 


A 


DEB4 


3E01 


MVI 


A,l 


DEB6 


32B2DE 


STA 


WFLG 


DEB9 


32AADE 


STA 


CWFLG 


DEBC 


CA58DE 


JZ 


GOCPM 


DEBF 


AF 


XRA 


A 


DEC0 


32B2DE 


STA 


WFLG 


DEC3 


4F 


MOV 


C,A 






IF 


(MAXHD NE 0) AND 


DEC4 


2100C5 


LXI 


H,CCP-200H 


DEC 7 


E5 


PUSH 


H 


DEC8 


32F5E2 


STA 


HEAD 


DECB 


3E04 


MVI 


A, 4 


DECD 


F5 


PUSH 


PSW 


DECE 


CDBAE1 


CALL 


HDDRV 


DED1 


0E00 


MVI 


C,0 


DED3 


CDECE1 


CALL 


HDTRK 


DED6 


Fl 


WARMLOD POP 


PSW 


DED7 


El 


POP 


H 


DED8 


3C 


INR 


A 


DED9 


32D9E2 


STA 


HDSECTR 


DEDC 


FE10 


CPI 


16 


DEDE 


CAAEDE 


JZ 


WBOOT 


DEE1 


24 


INR 


H 


DEE 2 


24 


INR 


H 


DEE3 


2250E2 


SHLD 


HDADD 


DEE6 


E5 


PUSH 


H 


DEE7 


F5 


PUSH 


PSW 


DEE3 


01000A 


WARMRD LXI 


B, RETRIES* 100H+0 


DEEB 


C5 


WRMREAD PUSH 


B 


DEEC 


CD36E2 


CALL 


HDREAD 


DEEF 


CI 


POP 


B 


DEF0 


D2D6DE 


JNC 


WARMLOD 


DEF3 


05 


DCR 


B 


DEF4 


C2EBDE 


JNZ 


WRMREAD 


DEF7 


76 


HLT 
ENDIF 








IF 


(MAXFLOP NE 0) A 






CALL 


DJDRV 



;SET UP STACK POINTER 

;TEST IF BEGINNING OR 

ENDING A WARM BOOT 



;SET COLD/WARM BOOT FLAG 



FIRST ; SUPPLY WARM BOOT FROM HARD DISK ? 
INITIAL DMA ADDRESS 



SAVE FIRST SECTOR 
SELECT DRIVE A 



•HOME THE DRIVE 
•RESTORE SECTOR 
RESTORE DMA ADDRESS 



•PAST BDOS ? 
YES, ALL DONE 
•UPDATE DMA ADDRESS 



; RETRY COUNTER 
•SAVE THE RETRY COUNT 
READ THE SECTOR 

TEST FOR ERROR 
•UPDATE THE ERROR COUNT 
KEEP TRYING IF NOT TO MANY ERRORS 
CAN'T WARM BOOT 



cp/m macro ASSEM 2.0 



#015 



MVI 


C,0 


CALL 


DJDEN 


MVI 


C,0 


CALL 


DJSIDE 


MVI 


A, 15 


STA 


NEWSEC 


LXI 


H,CCP-100H 


SHLD 


NEWDMA 


CALL 


WARMLOD 


LXI 


B,CCP+500H 


CALL 


DJDMA 


MVI 


C,8 


CALL 


DJSEC 


CALL 


WARMRD 


JMP 


CCP+503H 


WARMLOD MVI 


A, 15 


NEWSEC EQU 


$-1 


INR 


A 


INR 


A 


CPI 


27 


JC 


NOWRAP 


SUI 


9 


CPI 


19 


RZ 




LHLD 


NEWDMA 


LXI 


D,-480H 


DAD 


D 


SHLD 


NEWDMA 


NOWRAP STA 


NEWSEC 


MOV 


C,A 


CALL 


DJSEC 


LXI 


H,CCP-100H 


NEWDMA EQU 


$-2 


LXI 


D,100H 


DAD 


D 


SHLD 


NEWDMA 


MOV 


B,H 


MOV 


C,L 


CALL 


DJDMA 


CALL 


WARMRD 


JMP 


WARMLOD 


WARMRD LXI 


B, RETRIES* 


WRMREAD PUSH 


B 


CALL 


DJTRK 


CALL 


DJREAD 


POP 


B 


RNC 




DCR 


B 


JNZ 


WRMREAD 


JMP 


DJERR 


ENDIF 





*** Cbios For CP/M Ver. 2.2 *** 

;SELECT SINGLE DENSITY 

; SELECT SIDE 

7 INITIALIZE THE SECTOR TO READ 

;AND THE DMA ADDRESS 

;READ IN CP/M 

;LOAD ADDRESS FOR REST OF WARM BOOT 



; PREVIOUS SECTOR 

; UPDATE THE PREVIOUS SECTOR 

;WAS IT THE LAST ? 

;YES 



;SAVE THE NEW SECTOR TO READ 

;GET THE PREVIOUS DMA ADDRESS 
j UPDATE THE DMA ADDRESS 
;SAVE THE DMA ADDRESS 

;SET THE DMA ADDRESS 



;SET THE TRACK 
;READ THE SECTOR 

; CONTINUE IF SUCCESSFUL 

;KEEP TRYING 



***************************************************************** 
* * 



CP/M MACRO ASSEM 2.0 #016 



** Cbios For CP/M Ver. 2.2 *** 



* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN 

* ACTUAL READ OR WRITE IS ATTEMPTED. 



* 

* 

* " * 

***************************************************************** 



DEF8 


60 


SETSEC 


MOV 


H,B 


DEF9 


69 




MOV 


L,C 


DEFA 


22CEE4 




SHLD 


CPMSEC 


DEFD 


C9 


DONOP 


RET 





DF04 0E00 



***************************************************************** 

* * 

* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. * 

* * 
***************************************************************** 



;HL <- BC 

;CP/M DMA ADDRESS 



***************************************************************** 
* * 



DEFE 


60 


SETDMA 


MOV 


H,B 


DEFF 


69 




MOV 


L,C 


DF00 


22BEE0 




SHLD 


CPMDMA 


DF03 


C9 




RET 





* 
* 



* HOME IS TRANSLATED INTO A SEEK TO TRACK ZERO. 
* 

***************************************************************** 

HOME MVI C,0 ; TRACK TO SEEK TO 

****************************************** *********************** 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 

* POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE. * 

* * 
***************************************************************** 



;A <- TRACK # 
?CP/M TRACK # 



***************************************************************** 

* * 

* SECTRAN TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 

* #. * 

* * 
***************************************************************** 



DF06 


79 


SETTRK 


MOV 


A,C 


DF07 


32D1E4 




STA 


CPMTRK 


DF0A 


C9 




RET 











IF 


(MAXHD NE 0) 


DF0B 


3AD0E4 


SECTRAN 


LDA 
IF 


CPMDRV 
FIRST 


DF0E 


FE03 




CPI 


MAXHD*LOGDSK 


DF10 


DA42DF 




JC 

ELSE 

CPI 

JNC 


TRANHD 

MAXFLOP 
TRANHD 



(MAXHD NE 0) AND (MAXFLOP NE 0) jBOTH TYPES ? 

;GET THE DRIVE NUMBER 

•OVER THE # OF HARD DISKS ? 

?OVER THE # OF FLOPPIES ? 



CP/M MACRO ASSEM 2.0 #317 *** Cbios For CP/M Ver. 2.2 *** 



END IF 
END IF 

IF 



(MAXHD EQ 0) OR (MAXFLOP EQ 0) ;JUST ONE TYPE ? 







SECTRAN 


EQU 
END IF 


$ 










IF 


MAXFLOP NE 





DF13 


03 


TRANFP 


I NX 


B 




DF14 


D5 




PUSH 


D 




DF15 


C5 




PUSH 


B 




DF16 


CD42E0 




CALL 


GETDPB 




DF19 


7E 




MOV 


A,M 




DF1A 


B7 




ORA 


A 




DF1B 


IF 




RAR 






DF1C 


91 




SUB 


C 




DF1D 


F5 




PUSH 


PSW 




DF1E 


FA2ADF 




JM 


SIDETWO 




DF21 


Fl 


SIDEA 


POP 


PSW 




DF22 


CI 




POP 


B 




DF23 


Dl 




POP 


D 




DF24 


EB 


SIDEONE 


XCHG 






DF25 


09 




DAD 


B 




DF26 


6E 




MOV 


L,M 




DF27 


2600 




MVI 


H,0 




DF29 


C9 




RET 






DF2A 


010F00 


SIDETWO 


LXI 


B,15 




DF2D 


09 




DAD 


B 




DF2E 


7E 




MOV 


A,M 




DF2F 


E608 




ANI 


8 




DF31 


CA21DF 




JZ 


SIDEA 




DF34 


Fl 




POP 


PSW 




DF35 


CI 




POP 


B 




DF36 


2F 




CMA 






DF37 


3C 




INR 


A 




DF38 


4F 




MOV 


C,A 




DF39 


Dl 




POP 


D 




DF3A 


CD24DF 




CALL 


SIDEONE 




DF3D 


3E80 




MVI 


A,80H 




DF3F 


B4 




ORA 


H 




DF40 


67 




MOV 


H,A 




DF41 


C9 




RET 
END IF 

IF 


MAXHD NE 




DF42 


60 


TRANHD 


MOV 


H,B 




DF43 


69 




MOV 


L,C 




DF44 


23 




I NX 


H 




DF45 


C9 


, 


RET 

END IF 







; FLOPPY TRANSLATION 

;SAVE TABLE ADDRESS 

;SAVE SECTOR # 

;GET DPS ADDRESS INTO HL 

;GET # OF CP/M SECTORS/TRACK 

; CLEAR CARY 

; DIVIDE BY TWO 

;SAVE ADJUSTED SECTOR 

; DISCARD ADJUSTED SECTOR 
; RESTORE SECTOR REQUESTED 
;RESTOR ADDRESS OF XLT TABLE 
;HL <- & (TRANSLATION TABLE) 
;BC = OFFSET INTO TABLE 
;HL <- PHYSICAL SECTOR 



; OFFSET TO SIDE BIT 

;TEST FOR DOUBLE SIDED 

; MEDIA IS ONLY SINGLE SIDED 

; RETRIEVE ADJUSTED SECTOR 

;MAKE SECTOR REQUEST POSITIVE 

;MAKE NEW SECTOR THE REQUESTED SECTOR 



;SIDE TWO BIT 

; AND SECTOR 



7 HARD DISK TRANSLATION ROUTINE 



***************************************************************** 

* ■* 

* SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE * 



CP/M MACRO ASSEM 2.0 #018 *** Cbios For CP/M Ver. 2.2 *** 



* 
* 
* 
* 
* 

* 
* 
* 



OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE, A 
PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 
DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 
DIFFERENT SECTOR SIZES: 

1) 128 BYTES SINGLE DENSITY. 

2) 2 56 BYTES DOUBLE DENSITY. 

3) 512 BYTES DOUBLE DENSITY. 

4) 1024 BYTES DOUBLE DENSITY. 



* 
* 

* 
* 
* 
* 
* 
* 



********************************************************* 



******** 



DF46 79 
DF47 32D0E4 
DF4A FE05 
DF4C D233E0 
DF4F 7B 
DF50 E601 
DF52 C21AE0 



DF55 3AD0E4 



DF53 FE03 
DF5A DAD2DF 
DF5D D603 



DF5F 
DF60 
DF61 
DF62 
DF63 
DF66 
DF68 
DF6B 
DF6D 
DF6E 
DF71 
DF72 
DF75 
DF78 
DF7A 



4F 
3E00 

A7 

C27DDF 

0611 

2100F4 

3EC3 

BE 

C233E0 

05 

C26DDF 

CD00F4 

3E01 

3261DF 



DF7D 210100 
DF80 22D2E4 
DF83 3E01 
DF85 32D1E4 
DF88 CD6FE1 
DF8B DA33E0 



SETDRV MOV 
STA 
CPI 
JNC 
MOV 
AN I 
JNZ 

IF 
LDA 

IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JNC 

ENDIF 

ENDIF 

IF 

MOV 

MVI 

FLOPFLG EQU 
ANA 
JNZ 
MVI 
LXI 
MVI 

CLOPP CMP 
JNZ 
DCR 
JNZ 
CALL 
MVI 
STA 
ENDIF 
IF 

FLOPOK LXI 
SHLD 
MVI 
STA 
CALL 
JC 



A,C ;SAVE THE DRIVE # 

CPMDRV 

MAXFLOP+(MAXHD*LOGDSK) ; CHECK FOR A VALID DRIVE # 

ZRET ; ILLEGAL DRIVE # 

A,E ;TEST IF DRIVE EVER LOGGED IN BEFORE 

1 

SETDRV1 ;BIT OF E = -> NEVER SELECTED BEFORE 

(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 

CPMDRV ;GET THE DRIVE NUMBER 



FIRST 

MAXHD*LOGDSK 
DRVHD 
MAXHD*LOGDSK 

MAXFLOP 
SUBFP 



;OVER THE # OF HARD DISKS ? 



;OVER THE # OF FLOPPIES ? 



(MAXFLOP NE 0) AND FIRST 



C,A 
A,0 

$-1 

A 

FLOPOK 

B,17 

H,DJBOOT 

A,(JMP) 

M 

ZRET 

B 

CLOPP 

DJBOOT 

A,l 

FLOPFLG 

MAXFLOP NE 

H,l 

TRUESEC 

A,l 

CPMTRK 

FILL 

ZRET 



ySAVE DRIVE # 

;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



; FLOPPIES HAVN'T BEEN ACCESSED 

; CHECK IF 2D CONTROLLER IS INSTALLED 



INITIALIZE THE CONTROLLER 
;SAVE 2D INITIALIZED FLAG 



; SELECT SECTOR 1 OF TRACK 1 



7 FLUSH BUFFER AND REFILL 
;TEST FOR ERROR RETURN 
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DF8E 
DP91 
DF93 
DF94 
DF95 
DF98 
DF99 
DF9B 
DF9C 
DF9D 
DFA0 
DFA1 
DFA2 
DFA4 
DFA7 
DFAA 
DFAB 
DFAC 
DFAF 

DFB0 
DFB1 
DFB3 
DFB4 
DFB6 
DFB7 
DFB9 
DFBC 
DFBF 
DFC2 
DFC3 
DFC4 
DFC5 
DFC6 
DFC7 
DFC8 
DFCA 
DFCB 
DFCC 
DFCD 
DFCE 



CD27F4 

E60C 

F5 

IF 

215BE0 

5F 

1600 

19 

E5 

CD42E0 

EB 

Dl 

0602 

CDA5E1 

110800 

19 

E5 

2A07F0 

23 

7E 

EE03 

6F 

26F3 

7E 

E608 

11CEE3 

C2C2DF 

110EE4 

EB 

Dl 

Fl 

17 

17 

4F 

0600 

09 

EB 

73 

23 

72 



SIDEOK 



CALL 

AN I 

PUSH 

RAR 

LXI 

MOV 

MVI 

DAD 

PUSH 

CALL 

XCHG 

POP 

MVI 

CALL 

LXI 

DAD 

PUSH 

LHLD 

I NX 

MOV 

XRI 

MOV 

MVI 

MOV 

ANI 

LXI 

JNZ 

LXI 

XCHG 

POP 

POP 

RAL 

RAL 

MOV 

MVI 

DAD 

XCHG 

MOV 

I NX 

MOV 

ENDIF 



DJSTAT 

0CH 

PSW 

H,XLTS 

E,A 

D,0 

D 

H 

GETDPB 

D 

B,2 

MOVLOP 
D,8 

D 

H 

ORIGIN+7 

H 

A,M 

3 

L,A 

H, (ORIGIN+3 

A,M 

DBLSID 

D,DPB128S 

SIDEOK 

D,DPB128D 

D 
PSW 



C, A 
B,0 
B 

M,E 

H 

M,D 



;GET STATUS ON CURRENT DRIVE 
; STRIP OFF UNWANTED BITS 
?USED TO SELECT A DPB 

; TABLE OF XLT ADDRESSES 



SAVE POINTER TO PROPER XLT 
GET DPH POINTER INTO DE 



; NUMBER OF BYTES TO MOVE 
;MOVE THE ADDRESS OF XLT 
; OFFSET TO DPB POINTER 
;HL <- &DPH.DPB 

GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
BUMP TO LOOK AT ADDRESS OF 
UART STATUS LOCATION 



;ADJUST FOR PROPER REV DJ 

00H)/100H 

; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB ' S 

;BASE OF DOUBLE SIDED DPB ' S 
;HL <- DBP BASE, DE <- &DPH.DPB 
; RESTORE DE (POINTER INTO DPH) 
; OFFSET TO CORRECT DPB 



;PUT DPB ADDRESS IN DPH 



DFCF C31AE0 



SUBFP 



IF 
JMP 

IF 
SUI 
ENDIF 
ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

SETDRV1 ;SKIP OVER THE HARD DISK SELECT 

NOT FIRST 

MAXFLOP ; ADJUST THE DRIVE # 



DFD2 CD39E0 
DFD5 79 
DFD6 32FBE2 
DFD9 CDE9E2 
DFDC 7E 



IF MAXHD NE 

DRVHD CALL DIVLOG 

MOV A,C 

STA HDDISK 

CALL DRVPTR 

MOV A,M 



; DIVIDE BY LOGICAL DISKS PER DRIVE 



p/M ^ 
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DFDD 


3C 


INR 


A 


DFDE 


C21AE0 


JNZ 


SETDRV1 


DFE1 


F6FC 


ORI 


NULL 


DFE3 


D352 


OUT 


HDFUNC 


DFE5 


3E05 


MVI 


A,SCENBL 


DFE7 


D350 


OUT 


HDCNTL 


DFE9 


0EEF 


MVI 


C,239 


DFEB 


210000 


LXI 


H,0 


DFEE 


2B TDELAY 


DCX 


H 


DFEF 


7C 


MOV 


A,H 


DFF0 


B5 


ORA 


L 


DFF1 


CC37E0 


CZ 


DCRC 


DFF4 


C8 


RZ 




DFF5 


DB50 


IN 


HDSTAT 


DFF7 


E620 


ANI 


DRVRDY 


DFF9 


C2EEDF 


JNZ 


TDELAY 






IF 


S DELAY 


DFFC 


210000 


LXI 


H,0 


DFFF 


0E40 


MVI 


C , INDEX 


E001 


DB50 


IN 


HDSTAT 


E003 


Al 


ANA 


C 


E004 


47 


MOV 


B,A 


E005 


DB50 INDX1 


IN 


HDSTAT 


E007 


Al 


ANA 


C 


E008 


B8 


CMP 


B 


E009 


CA05E0 


JZ 


INDX1 


E00C 


23 INDX2 


I NX 


H 


E00D 


DB50 


IN 


HDSTAT 


E00F 


Al 


ANA 


C 


E010 


B8 


CMP 


B 


E011 


C20CE0 


JNZ 


INDX2 






IF 


M10 






DAD 


H 






ENDIF 




E014 


22E1E1 


SHLD 
ENDIF 


SETTLE 


E017 


CDCBE1 


CALL 

ENDIF 


HDHOME 


E01A 


CD42E0 SETDRV1 


CALL 


GETDPB 


E01D 


010F00 


LXI 


B,15 


E020 


09 


DAD 


B 


E021 


7E 


MOV 


A,M 


E022 


E607 


ANI 


7H 


E024 


326FE0 


STA 


SECSIZ 


E027 


7E 


MOV 


A,M 


E028 


IF 


RAR 




E029 


IF 


RAR 




E02A 


IF 


RAR 




E02B 


IF 


RAR 




E02C 


E60F 


ANI 


0FH 


E02E 


32ADE0 


STA 


SECPSEC 


E031 


EB 


XCHG 




E032 


C9 


RET 





For CP/M Ver. 2.2 *** 

; SELECT DRIVE 

; ENABLE THE CONTROLLER 

;WAIT APPROX 2 MINUTES FOR DISK TO READY 



;TEST IF READY YET 



;TIME ONE REVOLUTION OF THE DRIVE 



;SAVE CURRENT INDEX LEVEL IN B 



;LOOP UTIL INDEX LEVEL CHANGES 



; START COUNTING UNTIL INDEX RETURNS TO 
; PREVIOUS STATE 



;SAVE THE COUNT FOR TIMEOUT DELAY 



;GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

7 GET SECTOR SIZE 



;HL <- DPH 
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E033 


210000 


ZRET 


LXI 


H,0 


E036 


C9 




RET 
IF 


MAXHD NE 


E037 


0D 


DCRC 


DCR 


C 


E038 


C9 




RET 




E039 


0E00 


DIVLOG 


MVI 


C,0 


E03B 


D603 


DIVLOGX 


SUI 


LOGDSK 


E03D 


D8 




RC 




E03E 


0C 




INR 


C 


E03F 


C33BE0 




JMP 
ENDIF 


DIVLOGX 



*** Cbios For CP/M Ver. 2.2 *** 

;SELDRV ERROR EXIT 



; CONDITIONAL DECREMENT C ROUTINE 



***************************************************************** 

* * 

* GETDPB RETURNS HL POINTING TO THE DPB OF THE CURRENTLY * 

* SELECTED DRIVE, DE POINTING TO DPH. * 

* * 

***************************************************************** 



E042 


3AD0E4 GETDPB LDA 


CPMDRV 


E045 


6F 


MOV 


L,A 


E046 


2600 


MVI 


H,0 


E048 


29 


DAD 


H 


E049 


29 


DAD 


H 


E04A 


29 


DAD 


H 


E04B 


29 


DAD 


H 


E04C 


117EE4 


LXI 


D,DPBASE 


E04F 


19 


DAD 


D 


E050 


E5 


PUSH 


H 


E051 


110A00 


LXI 


D,10 


E054 


19 


DAD 


D 


E055 


7E 


MOV 


A,M 


E056 


23 


I NX 


H 


E057 


66 


MOV 


H,M 


E058 


6F 


MOV 


L,A 


E059 


Dl 


POP 


D 


E05A 


C9 


RET 





;FORM OFFSET 



,-BASE OF DPH'S 

;SAVE ADDRESS OF DPH 
; OFFSET TO DPB 

;GET LOW BYTE OF DPB ADDRESS 

;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF ADDRESS THAT POINT TO EACH OF THE XLT * 

* TABLES FOR EACH SECTOR SIZE. * 

* * 

***************************************************************** 



E05B 00E3 
E05D 1BE3 
E05F 50E3 
E061 8DE3 



XLTS 



IF 


MAXFLOP NE 


DW 


XLT128 


DW 


XLT256 


DW 


XLT512 


DW 


XLT124 


ENDIF 





;XLT FOR 128 BYTE SECTORS 
;XLT FOR 256 BYTE SECTORS 
;XLT FOR 512 BYTE SECTORS 
•XLT FOR 1024" BYTE' SECTORS 



************** *** * ******* ***** ***** ******** ********************** 
* * 



CP/M MACRO ASSEM 2.0 



#022 



*** Cbios For CP/M Ver. 2.2 *** 



* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESIRED CP/M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 

* BUFFER IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 

* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE * 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. * 

* * 

***************************************************************** 



E063 79 
E064 32D5E0 
E067 3E01 
E069 06 



WRITE 



MOV 


A,C 


STA 


WRITTYP 


MVI 


A,l 


DB 


(MVI) OR (B*8) 



;SAVE WRITE COMMAND TYPE 

SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 

THE FOLLOWING "XRA A" TO 

BE SKIPPED OVER. 



***************************************************************** 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 

* REQUESTED FROM CP/M IS IN THE BUFFER, THEN THE DATA IS SIMPLY * 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 

* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE * 

* DESIRED CP/M SECTOR. * 

* * 
***************************************************************** 



E06A AF 
E06B 32C1E0 



READ XRA A 

STA RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* * 

* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT * 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE * 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE, THE * 

* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

* * 

***************************************************************** 



E06E 


0600 


REDWRT 


MVI 


B,0 


E06F 


= 


SECSIZ 


EQU 


$-1 


E070 


2ACEE4 




LHLD 


CPMSEC 


E073 


7C 




MOV 


A,H 


E074 


E680 




ANI 


80H 


E076 


4F 




MOV 


C,A 


E077 


7C 




MOV 


A,H 


E078 


E67F 




ANI 


7FH 


E07A 


67 




MOV 


H,A 


E07B 


2B 




DCX 


H 


E07C 


05 


DIVLOOP 


DCR 


B 


E07D 


CA8AE0 




JZ 


DIVDONE 


E080 


B7 




ORA 


A 



THE IS MODIFIED TO CONTAIN THE LOG2 
OF THE PHYSICAL SECTOR SIZE/128 
ON THE CURRENTLY SELECTED DISK. 

GET THE DESIRED CP/M SECTOR # 

;SAVE ONLY THE SIDE BIT 
? REMEMBER THE SIDE 

; FORGET THE SJDE BIT 

•TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 
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E081 


7C 


MOV 


A,H 


E082 


IF 


RAR 




E083 


67 


MOV 


H,A 


E084 


7D 


MOV 


A,L 


E085 


IF 


RAR 




E086 


6F 


MOV 


L,A 


E087 


C37CE0 


JMP 


DIVLOOP 


E08A 


23 


DIVDONE I NX 


H 


E08B 


7C 


MOV 


A,H 


E03C 


Bl 


ORA 


C 


E08D 


67 


MOV 


H,A 


E08E 


22D2E4 


SHLD 


TRUESEC 


E091 


21D0E4 


LXI 


H, CPMDRV 


E094 


11D4E4 


LXI 


D, BUFDRV 


E097 


0605 


MVI 


B,5 


E099 


05 


DTSLOP DCR 


B 


E09A 


CAA8E0 


JZ 


MOVE 


E09D 


1A 


LDAX 


D 


E09E 


BE 


CMP 


M 


E09F 


23 


I NX 


H 


E0A0 


13 


I NX 


D 


E0A1 


CA99E0 


JZ 


DTSLOP 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 
; OF THE PHYSICAL SECTORS 



; RESTORE THE SIDE BIT 

;SAVE THE PHYSICAL SECTOR NUMBER 

? POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 

; POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 

; COUNT LOOP 

;TEST IF DONE WITH COMPARE 

?YES, MATCH. GO MOVE THE DATA 

?GET A BYTE TO COMPARE 

;TEST FOR MATCH 

;BUMP POINTERS TO NEXT DATA ITEM 

; MATCH, CONTINUE TESTING 

***************************************************************** 

* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSARY AND THEN REFILL. * 

* * 

***************************************************************** 



E0A4 CD6FE1 
E0A7 D8 



CALL 
RC 



FILL 



;FILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
;NO GOOD, RETURN WITH ERROR INDICATION 



***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 

* THE BUFFER. * 

* * 

***************************************************************** 



E0A8 


3ACEE4 


MOVE 


LDA 


CPMSEC 


E0AB 


3D 




DCR 


A 


E0AC 


E600 




ANI 





E0AD 


= 


SECPSEC 


EQU 


$-1 


E0AE 


6F 




MOV 


L,A 


E0AF 


2600 




MVI 


H,0 


E0B1 


29 




DAD 


H 


E0B2 


29 




DAD 


H 


E0B3 


29 




DAD 


H 


E0B4 


29 




DAD 


H 


E0B5 


29 




DAD 


H 


E0B6 


29 




DAD 


H 


E0B7 


29 




DAD 


H 


E0B8 


11D8E4 




LXI 


D, BUFFER 



;GET THE CP/M SECTOR TO TRANSFER 

; ADJUST TO PROPER SECTOR IN BUFFER 

; STRIP OFF HIGH ORDERED BITS 

;THE IS MODIFIED TO REPRESENT THE # OF 

; CP/M SECTORS PER PHYSICAL SECTORS 

;PUT INTO HL 

;FORM OFFSET INTO BUFFER 



; BEGINNING ADDRESS OF BUFFER 
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E0BB 


19 




DAD 


D 


E0BC 


EB 




XCHG 




E0BD 


210000 




LXI 


H,0 


E0BE 


— 


CPMDMA 


EQU 


$-2 


E0C0 


3E00 




MVI 


A,0 


E0C1 


= 


RDWR 


EQU 


$-1 


E0C2 


A7 




ANA 


A 


E0C3 


C2CBE0 




JNZ 


INTO 


E0C6 


CDA3E1 


OUTOF 


CALL 


MOVER 


E0C9 


AF 




XRA 


A 


E0CA 


C9 




RET 




E0CB 


EB 


INTO 


XCHG 




E0CC 


CDA3E1 




CALL 


MOVER 


E0CF 


3E01 




MVI 


A,l 


E0D1 


32DEE0 




STA 


BUFWRTN 


E0D4 


3E00 




MVI 


A,0 


E0D5 


= 


WRITTYP 


EQU 


?-l 


E0D6 


3D 




DCR 


A 


E0D7 


3E00 




MVI 


A,0 


E0D9 


32D5E0 




STA 


WRITTYP 


E0DC 


C0 




RNZ 





FORM BEGINNING ADDRESS OF SECTOR TO TRANSFER 
DE = ADDRESS IN BUFFER 

GET DMA ADDRESS, THE IS MODIFIED TO 
CONTAIN THE DMA ADDRESS 

;THE ZERO GETS MODIFIED TO CONTAIN 

; A ZERO IF A READ, OR A 1 IF WRITE 

;TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



MOVE THE DATA, HL = DESTINATION 
DE = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



;SET NO DIRECTORY WRITE 
;NO ERROR EXIT 

***************************************************************** 

* * 

* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 
***************************************************************** 



E0DD 


3E00 


FLUSH 


MVI 


A,0 


E0DE 


= 


BUFWRTN 


EQU 


$-1 


E0DF 


A7 




ANA 


A 


E0E0 


C8 




RZ 
IF 


(MAXHD NE 0) 


E0E1 


2118F4 




LXI 


H,DJWRITE 


E0E4 


116BE2 




LXI 


D,HDWRITE 


E0E7 


CDB2E1 




CALL 

ELSE 

IF 

LXI 

ENDIF 

IF 

LXI 

ENDIF 

ENDIF 


DECIDE 

MAXHD NE 
H,HDWRITE 

MAXFLOP NE 
H,DJWRITE 



;THE IS MODIFIED TO REFLECT IF 

; THE BUFFER HAS BEEN WRITTEN INTO 

;TEST IF WRITTEN INTO 
;NOT WRITTEN, ALL DONE 



;WRITE OPERATION FOR DISK JOCKEY 
;WRITE OPERATION FOR HARD DISK 



***************************************************************** 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRIES ARE ATTEMPTED. * 

* UPON ENTRY, H&L MUST CONTAIN THE READ OR WRITE OPERATION * 
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* ADDRESS. * 

***************************************************************** 



E0EA AF 
E0EB 32DEE0 
E0EE 2250E1 
E0F1 060A 
E0F3 C5 
E0F4 3AD4E4 



E0F7 FE03 
E0F9 DAFEE0 
E0FC D603 



PREP XRA 
STA 
SHLD 
MVI 

RETRYLP PUSH 
LDA 

IF 

IF 

CPI 

JC 

SUI 

ELSE 

CPI 

JC 

SUI 

ENDIF 



A 

BUFWRTN 

RETRYOP 

B, RETRIES 

B 

BUFDRV 



; RESET BUFFER WRITTEN FLAG 

;SET UP THE READ/WRITE OPERATION 

; MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

;SAVE THE RETRY COUNT 

;GET DRIVE NUMBER INVOLVED IN THE OPERATION 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

FIRST 

MAXHD*LOGDSK 

NOADJST 

MAXHD*LOGDSK 

MAXFLOP 
NOADJST 
MAXFLOP 



E0FE 4F 
E0FF 2133DD 
E102 11BAE1 
E105 CDAEE1 



NOADJST MOV 
LXI 
LXI 
CALL 
ELSE 
MOV 
IF 

CALL 
ENDIF 
IF 

CALL 
ENDIF 
ENDIF 



C,A 

H,DJDRV 
D,HDDRV 
DECIDGO 

C, A 

MAXHD NE 

HDDRV 

MAXFLOP NE 
DJDRV 



; SELECT DRIVE 



; SELECT THE DRIVE 



E108 3AD5E4 
E10B A7 
E10C 4F 
E10D C5 



LDA 
ANA 
MOV 
PUSH 



BUFTRK 
A 

C,A 
B 



;TEST FOR TRACK ZERO 



E10E 2109F4 
Elll 11CBE1 
E114 CCAEE1 



IF 

LXI 

LXI 

CZ 

ELSE 

IF 

CZ 

ENDIF 

IF 

CZ 

ENDIF 

ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJHOME 

D,HDHOME 

DECIDGO 

MAXHD NE 
HDHOME 



MAXFLOP NE 
DJHOME 



;HOME THE DRIVE IF TRACK 



E117 CI 



POP 



B 



; RESTORE TRACK # 
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E118 210CF4 
E11B 11ECE1 
El IE CDAEE1 



IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJTRK 

D,HDTRK 

DECIDGO 

MAXHD NE 
HDTRK 



MAXFLOP NE 
DJTRK 



rSEEK TO PROPER TRACK 



E121 2AD6E4 
E124 7C 
E125 07 
E126 E601 
E128 4F 



E129 2130F4 
E12C 1118E2 
E12F CDAEE1 



LHLD 

MOV 

RLC 

AMI 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 



BUFSEC 

A,H 

1 
C,A 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
;C <- SIDE # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSIDE 

D,HDSIDE 

DECIDGO 

MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



; SELECT THE SIDE 



E132 2AD6E4 
E135 7C 
E136 E67F 
E138 47 
E139 4D 



E13A 210FF4 
E13D 1121E2 
E140 CDAEE1 



E143 01D8E4 



E146 2112F4 
E149 1113E2 



jr 



LHLD 

MOV 

ANT 

MOV 

MOV 

IF 

LXI 

LXI 

CALL 

ELSE 

IF 

CALL 

ENDIF 

IF 

CALL 

ENDIF 

ENDIF 

LXI 

IF 

LXI 

LXI 



BUFSEC 

A,H 

7FH 

B,A 

C,L 



; STRIP OFF SIDE BIT 
;C <- SECTOR # 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

H,DJSEC 

D,HDSEC 

DECIDGO 

MAXHD NE 
HDSEC 



MAXFLOP NE 
DJSEC 



B, BUFFER 



; SELECT THE SIDE 



;SET THE DMA ADDRESS 



(MAXHD NE 0) AND (MAXFLOP NE 0) 

HVDJDMA 

D,HDDMA 



CP/M macro ASSEM 2.0 



#027 



*** Cbios For CP/M Ver. 2.2 *** 



E14C 


CDAEE1 


CALL 


DECIDGO 






ELSE 








IF 


MAXHD NE 






CALL 


HDDMA 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJDMA 






ENDIF 








ENDIF 




E14F 


CD0000 


CALL 





E150 


= 


RETRYOP EQU 


$-2 


E152 


CI 


POP 


B 


E153 


3E00 


MVI 


A,0 


E155 


D0 


RNC 




E156 


05 


DCR 


B 


E157 


37 


STC 




E158 


3EFF 


MVI 


A,0FFH 


E15A 


C8 


RZ 




E15B 


78 


MOV 


A,B 


E15C 


FE05 


CPI 


RETRIES/2 


E15E 


C2F3E0 


JNZ 


RETRYLP 


E161 


C5 


PUSH 


B 






IF 


(MAXHD NE 0) 


E162 


2109F4 


LXI 


H,DJHOME 


E165 


11CBE1 


LXI 


D,HDHOME 


E168 


CDAEE1 


CALL 
ELSE 


DECIDGO 






IF 


MAXHD NE 






CALL 


HDHOME 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJHOME 






ENDIF 








ENDIF 




E16B 


CI 


POP 


B 


E16C 


C3F3E0 


JMP 


RETRYLP 



; SELECT THE SIDE 



;GET OPERATION ADDRESS 

.•RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

;ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 



;TRY AGAIN 



;HOME THE DRIVE IF TRACK 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 
***************************************************************** 



E16F CDDDE0 
E172 D8 
E173 11D0E4 



FILL 



CALL 


FLUSH 


; FLUSH BUFFER FIRST 


RC 




; CHECK FOR ERROR 


LXI 


D,CPMDRV 


;UP 



dir 

A: PIP COM : -MY- BIOS DOC i MAC COM 

A: DDT COM : STAT COM : SYSGEN COM 

A: WSOVLY1 OVR 

A>pip lst:=cbios6.prn [S#002]*Z]Q#0033 



MOVCPMH COM 
WSMSGS OVR 



cp/m macro ASSEM 2.0 



******************************************************************* 

* * '• ' .'■ •' * * * 

* CBIOS FOR CP/M VER 2.2 FOR DISK JOCKEY 2D CONTROLLER (ALL * 

* REVS, AND MODELS A & B) . HANDLES DISKETTES WITH SECTOR SIZES * 

* OF 123 BYTES SINGLE DENSITY, 256, 512, 1024 BYTES DOUBLE * 

* DENSITY. THERE ARE CONDITIONAL ASSEMBLIES FOR DISKUS HARD * 

* DISK CONTROLLER. * 

* * 

* WRITTEN BY BOBBY DALE GIFFORD. * 

* 12/8/80 * 

*-■.-■ * 

* CUSTOMIZED BY JAY O'BRIEN * 

* l /l fi /«? * 



T 



T- 



* DISK MAP OF SECTORS USED BY COLD BOOT, WARM BOOT, FIRMWARE, 

* AND CP/M: 



* TRK 


SEC 


1 


= 


FIRST SECTOR OF COLD BOOT. 


* 





2 


= 


COLD BOOT 256. 


* 





3 


= 


COLD BOOT 512. 


* 





4 


= 


COLD BOOT 1024. 


* 





5 


= 


WARM BOOT 256. 


* 





6 


= 


WARM BOOT 512. 


* 





7 


= 


WARM BOOT 1024. 


* 





8 


= 


COLD /WARM BOOT. 


* 





9 


= 


FIRMWARE. 


* 





10 


= 


FIRMWARE+80H. 


* 





11 


= 


FIRMWARE+100H 


* 





12 


= 


FIRMWARE+180H. 


* 





13 


= 


FIRMWARE+200H. 


* 





14 


= 


FIRMWARE+280H. 


* 





15 


as 


FIRMWARE+300H. 


* 





16 


= 


FIRMWARE+380H. 


* 





17 


= 


CCP. 


* 





10 


= 


CCP+80H. 


* 





12 


= 


CCP+100H. 


* 





14 


= 


CCP+180H. 


4c 





16 


= 


CCP+200H. 


* 





18 


= 


CCP+280H. 


* 





20 


= 


CCP+300H. 


* 





22 


= 


CCP+330H. 


* 





24 


= 


CCP+400H . 


* 





26 


= 


CCP+480H. 


* 


1 




= 


REST OF CP/M. 


******************************************* 



, FIRMWARE, 


* 




* 




* 


E700H 


* 


80H 


* 


80H 


* 


80H 


* 


80H 


* 


80H 


* 


80H 


* 


2C00H 


* 


E400H 


* 


E480H 


* 


E500H 


* 


E580H 


* 


E600H 


* 


E680H 


* 


E700H 


* 


E780H 


* 


2700H 


* 


2780H 


* 


2800H 


* 


2880H 


* 


2900H 


* 


2980H 


* 


2A00H 


* 


2A80H 


* 


2B00H 


* 


2B80H 


* 


2C00H-4FFFH 


* 




* 



TITLE '*** Cbios For CP/M Ver. 2.2 ***' 
ABORTED: CBIOS6.PRN 

#002 *** Cbios For CP/M Ver. 2.2 *** 



001C = 
0016 = 



REVNUM EQU 28 
CPMREV EQU 22 



; CBIOS REVISION NUMBER 
;CP/M REVISION NUMBER 



***************************************************************** 

* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE * 



#326 



*** Cbios For CP/M Ver. 2.2 *** 



E118 210CF4 
E11B 11ECE1 
El IE CDAEE1 



El 21 2AD6E4 
E124 7C 
E125 07 
E126 E601 
E128 4F 



E129 2130F4 
E12C 1118E2 
E12F CDAEE1 



El 32 2AD6E4 
E135 7C 
E136 E67F 
E138 47 
E139 4D 



E13A 210FF4 
E13D 1121E2 
E140 CDAEE1 



E143 01D8E4 



E146 2112F4 
E149 1113E2 



IF 


(MAXHD NE 0) 


LXI 


H,DJTRK 


LXI 


D,HDTRK 


CALL 


DECIDGO 


ELSE 




IF 


MAXHD NE 


CALL 


HDTRK 


ENDIF 




IF 


MAXFLOP NE 


CALL 


DJTRK 


ENDIF 




ENDIF 




LHLD 


BUFSEC 


MOV 


A,H 


RLC 




ANI 


1 


MOV 


C,A 


IF 


(MAXHD NE 0) 


LXI 


H,DJSIDE 


LXI 


D,HDSIDE 


CALL 


DECIDGO 


ELSE 




IF 


MAXHD NE 


CALL 


HDSIDE 


ENDIF 




IF 


MAXFLOP NE 


CALL 


DJSIDE 


ENDIF 




ENDIF 




LHLD 


BUFSEC 


MOV 


A,H 


ANI 


7FH 


MOV 


B,A 


MOV 


C,L 


IF 


(MAXHD NE 0) 


LXI 


H,DJSEC 


LXI 


D,HDSEC 


CALL 


DECIDGO 


ELSE 




IF 


MAXHD NE 


CALL 


HDSEC 


ENDIF 




IF 


MAXFLOP NE 


CALL 


DJSEC 


ENDIF 




ENDIF 




LXI 


B^ BUFFER 



SEEK TO PROPER TRACK 



;GET SECTOR INVOLVED IN OPERATION 
;BIT OF A EQUALS SIDE # 
; STRIP OFF UNNECESSARY BITS 
;C <- SIDE # 



; SELECT THE SIDE 



; STRIP OFF SIDE BIT 
;C <- SECTOR # 



; SELECT THE SIDE 



;SET THE DMA ADDRESS 



IF (MAXHD NE 0) AND (MAXFLOP NE 0) 
LXI H, DJDMA 
LXI D,HDDMA 



CP/M MACRO ASSEM 2.0 



#027 



*** Cbios For CP/M Ver. 2.2 *** 



E14C 


CDAEE1 


CALL 
ELSE 


DECIDGO 






IF 


MAXHD NE 






CALL 


HDDMA 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJDMA 






ENDIF 








ENDIF 




E14F 


CD0000 


CALL 





E150 


= 


RETRYOP EQU 


$-2 


E152 


CI 


POP 


B 


E153 


3E00 


MVI 


A,0 


E155 


D0 


RNC 




E156 


05 


DCR 


B 


E157 


37 


STC 




E158 


3EFF 


MVI 


A,0FFH 


E15A 


C8 


RZ 




E15B 


78 


MOV 


A,B 


E15C 


FE05 


CPI 


RETRIES/ 2 


E15E 


C2F3E0 


JNZ 


RETRYLP 


E161 


C5 


PUSH 


B 






IF 


(MAXHD NE 0) 


E162 


2109F4 


LXI 


H,DJHOME 


E165 


11CBE1 


LXI 


D,HDHOME 


E168 


CDAEE1 


CALL 

ELSE 


DECIDGO 






IF 


MAXHD NE 






CALL 


HDHOME 






ENDIF 








IF 


MAXFLOP NE 






CALL 


DJHOME 






ENDIF 








ENDIF 




E16B 


CI 


POP 


B 


E16C 


C3F3E0 


JMP 


RETRYLP 



; SELECT THE SIDE 



;GET OPERATION ADDRESS 

; RESTORE THE RETRY COUNTER 

;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 

; ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 



;TRY AGAIN 



;HOME THE DRIVE IF TRACK 



***************************************************************** 

* * 

* FILL FILLS THE BUFFER WITH A NEW SECTOR FROM THE DISK. * 

* * 

***************************************************************** 



E16F CDDDE0 
E172 D8 
E173 11D0E4 
E176 21D4E4 
E179 0604 
E17B CDA5E1 

E17E 3AC1E0 
E181 A7 
E182 CA97E1 



FILL 



CALL 


FLUSH 


RC 




LXI 


D, CPMDRV 


LXI 


H, BUFDRV 


MVI 


B,4 


CALL 


MOVLOP 


LDA 


RDWR 


ANA 


e. A 


JZ 


FREAD 



FLUSH BUFFER FIRST 

CHECK FOR ERROR 

UPDATE THE DRIVE, TRACK, AND SECTOR 



; NUMBER OF BYTES TO MOVE 
; COPY THE DATA 



CP/M MACRO ASSEM 2.0 



#023 



*** Cbios For CP/M Ver. 2.2 *** 



E185 3AD5E0 
E188 3D 
E189 3D 
EISA C8 
E18B CD42E0 
E18E 110F00 
E191 19 
E192 7E 
E193 E603 
E195 3D 
E196 C8 

E197 = 

E197 2115F4 
E19A 1136E2 
E19D CDB2E1 



E1A0 C3EAE0 



FREAD 



LDA 


WRITTYP 


DCR 


A 


DCR 


A 


RZ 




CALL 


GETDPB 


LXI 


D,15 


DAD 


D 


MOV 


A,M 


ANI 


3 


DCR 


A 


RZ 




EQU 


$ 


IF 


(MAXHD NE 0) 


LXI 


H,DJREAD 


LXI 


D,HDREAD 


CALL 


DECIDE 


ELSE 




IF 


MAXHD NE 


LXI 


H,HDREAD 


ENDIF 




IF 


MAXFLOP NE 


LXI 


H,DJREAD 


ENDIF 




ENDIF 




JMP 


PREP 



; SELECT THE SIDE 



; SELECT DRIVE, TRACK, AND SECTOR. 
THEN READ THE BUFFER 

***************************************************************** 

* * 

* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST * 

* POINTER IN HL. * 

* * 

***************************************************************** 



E1A3 0680 
E1A5 1A 
E1A6 77 
E1A7 13 
E1A8 23 
E1A9 05 
E1AA C2A5E1 
E1AD C9 



MOVER MVI B,128 

MOVLOP LDAX D 

MOV M,A 

INX D 

INX H 

DCR B 

JNZ MOVLOP 
RET 



; LENGTH OF TRANSFER 
?GET A BTE OF SOURCE 
;MOVE IT 
;BUMP POINTERS 

; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



***************************************************************** 
* * 



* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. 
* 

***************************************************************** 



* 
* 



E1AE CDB2E1 
E1B1 E9 



IF (MAXHD NE 0) AND (MAXFLOP NE 0) 
DECIDGO CALL DECIDE ;WHICH CONTROLLER ? 
PCHL 
ENDIF 



IF 



(MAXHD NE 0) AND (MAXFLOP NE 0) 



CP/M MACRO ASSEM 2.0 #029 



*** Cbios For CP/M Ver. 2.2 ** i 



E1B2 


3AD4E4 


DECIDE 


LDA 
IF 


BUFDRV 
FIRST 


E1B5 


FE03 




CPI 


MAXHD*LOGDSK 


E1B7 


D0 




RNC 

ELSE 

CPI 

RC 
ENDIF 


MAXFLOP 


E1B8 


EB 




XCHG 




E1B9 


C9 




RET 
ENDIF 





;GET PROPER ROUTINE INTO H&L, BASED 
; ON CURRENTLY SELECTED DRIVE 



***************************************************************** 

* * 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 

* * 

***************************************************************** 









IF 


MAXHD NE 


E1BA 


79 


HDDRV 


MOV 


A,C 


E1BB 


CD39E0 




CALL 


DIVLOG 


E1BE 


79 




MOV 


A,C 


E1BF 


32FBE2 




STA 


HDDISK 


E1C2 


F6FC 




ORI 


NULL 


E1C4 


D352 




OUT 


HDFUNC 


E1C6 


3E0F 




MVI 


A,WENABL 


E1C8 


D350 




OUT 


HDCNTL 


E1CA 


C9 




RET 




E1CB 


CDE9E2 


HDHOME 


CALL 


DRVPTR 


E1CE 


3600 




MVI 
IF 


M,0 
SDELAY 


E1D0 


DB50 


STEPO 


IN 


HDSTAT 


E1D2 


E601 




ANI 


TKZERO 


E1D4 


CAE0E1 




JZ 


DELAY 


E1D7 


3E01 




MVI 


A,l 


E1D9 


37 




STC 




E1DA 


CD00E2 




CALL 


ACCOK 


E1DD 


C3D0E1 




JMP 


STEPO 



; SELECT HARD DISK DRIVE 
;GET THE PHYSICAL DRIVE # 

; SELECT THE DRIVE 



;SET TRACK TO ZERO 



;TEST STATUS 

; AT TRACK ZERO ? 



?TAKE ONE STEP OUT 



ELSE 









IN 


HDSTAT 








ANI 


TKZERO 








RZ 










XRA 


A 








JMP 


ACCOK 








ENDIF 










IF 


SDELAY 


E1E0 


210000 


DELAY 


LXI 


H,0 


E1E1 


= 


SETTLE 


EQU 


$-2 


E1E3 


2B 


DELOOP 


DCX 


■■ H* 


E1E4 


7C 




MOV 


A,H 



;GET DELAY 
;WAIT 20MS 



CP/M MACRO ASSEM 2.0 



#030 



*** Cbios For CP/M Ver. 2.2 *** 



E1E5 


B5 




ORA 


L 


E1E6 


23 




I NX 


H 


E1E7 


2B 




DCX 


H 


E1E8 


C2E3E1 




JNZ 


DELOOP 


E1EB 


C9 




RET 
ENDIF 




E1EC 


CDE9E2 


HDTRK 


CALL 


DRVPTR 


E1EF 


5E 




MOV 


E,M 


E1F0 


71 




MOV 


M,C 


E1F1 


7B 




MOV 


A,E 


E1F2 


91 




SUB 


C 


E1F3 


C8 




RZ 




E1F4 


3F 




CMC 




E1F5 


DAFAE1 




JC 


HDTRK2 


E1F8 


2F 




CMA 




E1F9 


3C 




INR 
IF 


A 

NOT SDELAY 






HDTRK2 


JMP 
ELSE 


ACCOK 


E1FA 


CD00E2 


HDTRK2 


CALL 


ACCOK 


E1FD 


C3E0E1 




JMP 
ENDIF 


DELAY 


E200 


47 


ACCOK 


MOV 


B,A 


E201 


GDF4E2 




CALL 


BUILD 


E204 


E6FB 


SLOOP 


ANI 


NSTEP 


E206 


D352 




OUT 


HDFUNC 


E208 


F604 




ORI 


PSTEP 


E20A 


D352 




OUT 


HDFUNC 


E20C 


05 




DCR 


B 


E20D 


C204E2 




JNZ 


SLOOP 


E210 


C319E2 




JMP 


WSDONE 


E213 


60 


HDDMA 


MOV 


H,B 


E214 


69 




MOV 


L,C 


E215 


2250E2 




SHLD 


HDADD 


E218 


==" 


HDSIDE 


EQU 


$ 


E218 


C9 




RET 




E219 


DB50 


WSDONE 


IN 


HDSTAT 


E21B 


E604 




ANI 


COMPLT 


E21D 


CA19E2 




JZ 


WSDONE 


E220 


G9 




RET 
IF 


M26 


E221 


3E1F 


HDSEC 


MVI 


A,01FH 


E223 


Al 




ANA 


C 


E224 


CC33E2 




CZ 


GETSPT 


E227 


32D9E2 




STA 


HDSECTR 


E22A 


3EE0 




MVI 


A,0E0H 


E22C 


Ali 




ANA 


C 


E22D 


07 




RLC 




E22E 


07 




RLC 




E22F 


07 




RLC 




E230 


32F5E2 




STA 


HEAD 



;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 
?NEED TO SEEK AT ALL ? 



;GET CARRY INTO DIRECTION 



;PREP FOR BUILD 

;GET STEP PULSE LOW 

; OUTPUT LOW STEP LINE 

;SET STEP LINE HIGH 

; OUTPUT HIGH STEP LINE 

; UPDATE REPEAT COUNT 

;KEEP GOING THE REQUIRED 



;SAVE THE DMA ADDRESS 



# OF TRACKS 



;WAIT FOR SEEK COMPLETE TO FINISH 



;FOR COMPATIBILITY WITH CBIOS REV 2.3, 2.4 



CP/M macro ASSEM 2.0 



#031 



E233 3E20 
E235 C9 



GETSPT MVI 
RET 

ELSE 



*** Cbios For CP/M Ver. 2.2 *** 
A, HDSPT 







HDSEC 


MOV 

CALL 

ADI 

ANA 

CZ 

STA 

MOV 

STA 


A,C 

DIVSPT 

HDSPT 

A 

GETSPT 

HDSECTR 

A,C 

HEAD 






GETSPT 


MVI 
DCR 
RET 


A, HDSPT 
C 






DIVSPT 


MVI 


C,0 






DIVSPTX 


SUI 

RC 

INR 

JMP 

ENDIF 


HDSPT 

C 
DIVSPTX 


E236 


CDB4E2 


HDREAD 


CALL 


HDPREP 


E239 


D8 




RC 




E23A 


AF 




XRA 


A 


E23B 


D351 




OUT 


HDCMND 


E23D 


2F 




CMA 




E23E 


D353 




OUT 


HDDATA 


E240 


D353 




OUT 


HDDATA 


E242 


3E01 




MVI 


A, RSECT 


E244 


D351 




OUT 


HDCMND 


E246 


CD9AE2 




CALL 


PROCESS 


E249 


D8 




RC 




E24A 


AF 




XRA 


A 


E24B 


D351 




OUT 


HDCMND 


E24D 


0680 




MVI 


B,SECLEN/4 


E24F 


210000 




LXI 


H,0 


E250 


= 


HDADD 


EQU 


$-2 


E252 


DB53 




IN 


HDDATA 


E254 


DB53 




IN 


HDDATA 


E256 


DBS 3 


RTLOOP 


IN 


HDDATA 


E258 


77 




MOV 


M,A 


E259 


23 




I NX 


H 


E25A 


DB53 




IN 


HDDATA 


E25C 


77 




MOV 


M,A 


E25D 


23 




I NX 


H 


E25E 


DB53 




IN 


HDDATA 


E260 


77* 




MOT 


Mi A 


E261 


23 




I NX 


H 


E262 


DBS 3 


" h ' ' r ... 


IN 


HDDATA 


E264 


77 




MOV 


M,A 


E265 


23 




I NX 


H 


E266 


05 




DCR 


* B 


E267 


C256E2 




JNZ 


RTLOOP 



?READ SECTOR COMMAND 



;MOVE FOUR BYTES 



CP/M macro ASSEM 2.0 


#032 


*** Cbios 


E26A 


C9 


RET 




E26B 


CDB4E2 HDWRITE 


CALL 


HDPREP 


E26E 


D8 


RC 




# E26F 


AF 


XRA 


A 


E270 


D351 


OUT 


HDCMND 


E272 


2A50E2 


LHLD 


HDADD 


# E275 


0680 


MVI 


B,SECLEN/4 


E277 


7E WTLOOP 


MOV 


A,M 


E278 


D353 


OUT 


HDDATA 


# E27A 


23 


I NX 


H 


E27B 


7E 


MOV 


A,M 


E27C 


D353 


OUT 


HDDATA 


# E27E 


23 


I NX 


H 


E27F 


7E 


MOV 


A,M 


E280 


D353 


OUT 


HDDATA 


# E282 


23 


I NX 


H 


E283 


7E 


MOV 


A,M 


E284 


D353 


OUT 


HDDATA 


E236 


23 


I NX 


H 


E287 


05 


DCR 


B 


E288 


C277E2 


JNZ 


WTLOOP 


E28B 


3E05 


MVI 


A,WSECT 


E28D 


D351 


OUT 


HDCMND 


E28F 


CD9AE2 


CALL 


PROCESS 


# E292 


D8 


RC 




E293 


3E10 


MVI 


A,WFAULT 


E295 


A0 


ANA 


B 


# E296 


37 


STC 




E297 


C8 


RZ 




E298 


AF 


XRA 


A 


• E299 


C9 


RET 




E29A 


DB50 PROCESS 


IN 


HDSTAT 


# E29C 


47 


MOV 


B,A 


E29D 


E602 


ANI 


OPDONE 


E29F 


CA9AE2 


JZ 


PROCESS 


E2A2 


3E07 


MVI 


A,DSKCLK 


E2A4 


D350 


OUT 


HDCNTL 


E2A6 


DB50 


IN 


HDSTAT 


# E2A8 


E608 


ANI 


TMOUT 


E2AA 


37 


STC 




E2AB 


C0 


RNZ 




# E2AC 


DB51 


IN 


HDRESLT 


E2AE 


E602 


ANI 


RETRY 


E2B0 


37 


STC 




# E2B1 


C0 


RNZ 




E2B2 


AF 


XRA 


A 


E2B3 


C9 


RET 




E2B4 


DB50 HDPREP 


IN 


HDSTAT 


E2B6 


E620 


ANI 


DRVRDY 


# E2B8 


37 


STC 




E2B9 


C0 


RNZ 




E2BA 


3E08 


MVI 


A,ISBUFF 


# E2BC 


D351 


OUT 


HDCMND 



; PREPARE HEADER 



;MOVE 4 BYTES 



; ISSUE WRITE SECTOR COMMAND 



;WAIT FOR COMMAND TO FINISH 



? TIMED OUT ? 



;ANY RETRIES ? 



; INITIALIZE POINTER 



CP/M MACRO ASSEM 2.0 



#033 



*** Cbios For CP/M Ver. 2.2 *** 



E2BE 


CDF4E2 




CALL 


BUILD 


E2C1 


F60C 




ORI 


0CH 


E2C3 


D352 




OUT 


HDFUNC 


E2C5 


3AF5E2 




LDA 


HEAD 


E2C8 


D353 




OUT 


HDDATA 


E2CA 


CDE9E2 




CALL 


DRVPTR 


E2CD 


7E 




MOV 


A,M 


E2CE 


D353 




OUT 


HDDATA 


E2D0 


A7 




ANA 


A 


E2D1 


0680 




MVI 


B,80H 


E2D3 


CAD8E2 




JZ 


ZKEY 


E2D6 


0600 




MVI 


B,0 


E2D8 


3E00 


ZKEY 


MVI 


A,0 


E2D9 


= 


HDSECTR 


EQU 


$-1 


E2DA 


D353 




OUT 


HDDATA 


E2DC 


78 




MOV 


A,B 


E2DD 


D353 




OUT 


HDDATA 


E2DF 


3E07 




MVI 


A, DSKCLK 


E2E1 


D350 




OUT 


HDCNTL 


E2E3 


3E0F 




MVI 


A,WENABL 


E2E5 


D350 




OUT 


HDCNTL 


E2E7 


AF 




XRA 


A 


E2E8 


C9 




RET 




E2E9 


2AFBE2 


DRVPTR 


LHLD 


HDDISK 


E2EC 


EB 




XCHG 




E2ED 


1600 




MVI 


D,0 


E2EF 


21FFE2 




LXI 


H, DRIVES 


E2F2 


19 




DAD 


D 


E2F3 


C9 




RET 




E2F4 


3E00 


BUILD 


MVI 


A,0 


E2F5 


=s 


HEAD 


EQU 


$-1 


E2F6 


17 




RAL 




E2F7 


17 




RAL 




E2F8 


17 




RAL 




E2F9 


17 




RAL 




E2FA 


F600 




ORI 





E2FB 


= 


HDDISK 


EQU 


$-1 


E2FC 


EEF0 




XRI 


0F0H 


E2FE 


C9 




RET 




E2FF 


— 


DRIVES 


EQU 
REPT 
DB 
ENDM 


$ 

MAXHD 
0FFH 


E2FF+FF 




DB 


0FFH 








ENDIF 





;FORM HEAD BYTE 
; FORM TRACK BYTE 



;FORM SECTOR BYTE 



***************************************************************** 
* * 



* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WHEN MAPPING CP/M 

* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES. CURRENTLY THE 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE 



* 
* 
* 
* 
* 



CP/M MACRO ASSEM 2.0 #034 



; ** Cbios For CP/M Ver. 2.2 *** 



* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 

***************************************************************** 



E300 


00 XLT128 


DB 


E301 


01070D1319 


DB 


E306 


050B1117 


DB 


E30A 


03090F15 


DB 


E30E 


02080E141A 


DB 


E313 


060C1218 


DB 


E317 


040A1016 


DB 


E31B 


00 XLT256 


DB 


E31C 


0102131425 


DB 


E322 


0304151627 


DB 


E328 


0506171829 


DB 


E32E 


0708191A2B 


DB 


E334 


090A1B1C2D 


DB 


E33A 


0B0C1D1E2F 


DB 


E340 


0D0E1F2031 


DB 


E346 


0F10212233 


DB 


E34C 


11122324 


DB 


E350 


00 XLT512 


DB 


E351 


0102030411 


DB 


E359 


2122232431 


DB 


E361 


0506070815 


DB 


E369 


2526272835 


DB 


E371 


090A0B0C19 


DB 


E379 


292A2B2C39 


DB 


E381 


0D0E0F101D 


DB 


E389 


2D2E2F30 


DB 


E38D 


00 XLT124 


DB 


E38E 


0102030405 


DB 


E396 


191A1B1C1D 


DB 


E39E 


3132333435 


DB 


E3A6 


090A0B0C0D 


DB 


E3AE 


2122232425 


DB 


E3B6 


393A3B3C3D 


DB 


E3BE 


1112131415 


DB 


E3C6 


292A2B2C2D 


DB 



IF MAXFLOP NE 


1,7,13,19,25 
5,11,17,23 
3,9,15,21 
2,8,14,20,26 
6,12,18,24 
4,10,16,22 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,48 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,18,35,36 



1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37,38,39,40,53,54,55,56 

9,10,11,12,25,26,27,28 

41,42,43,44,57,58,59,60 

13,14,15,16,29,30,31,32 

45,46,47,48 



1,2,3,4,5,6,7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,2 3,24 

41,42,43,44,45,46,47,48 

***************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 

* SPECIFIED CHARACTERISTICS. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* THE FOLLOWING DPS DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 



CP/M MACRO ASSEM 2.0 #035 *** Cbios For CP/M Ver. 2.2 *** 



* * 

***************************************************************** 



E3CE 


1A00 


DPB128S DW 


26 


E3D0 


03 


DB 


3 


E3D1 


07 


DB 


7 


E3D2 


00 


DB 





E3D3 


F200 


DW 


242 


E3D5 


3F00 


DW 


63 


E3D7 


C0 


DB 


0C0H 


E3D8 


00 


DB 





E3D9 


1000 


DW 


16 


E3DB 


0200 


DW 


2 


E3DD 


01 


DB 


1H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 

***************************************************************** 



E3DE 


3400 


DPB256S DW 


52 


E3E0 


04 


DB 


4 


E3E1 


0F 


DB 


15 


E3E2 


00 


DB 





E3E3 


F200 


DW 


242 


E3E5 


7F00 


DW 


127 


E3E7 


C0 


DB 


0C0H 


E3E8 


00 


DB 





E3E9 


2000 


DW 


32 


E3EB 


0200 


DW 


2 


E3ED 


12 


DB 


12H 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*({#CPM SECTORS/ PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/ 128) + 1 + 

8 IF DOUBLE SIDED. 



***************************************************************** 
* * 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 

* DOUBLE DENSITY, AND SINGLE SIDED. 
* 



* 
* 
* 
***************************************************************** 



E3EE 


3C00 


DPB512S DW 


60 


E3F0 


04 


DB 


4 


E3F1 


0F 


DB 


15 


E3F2 


00 


DB 





E3F3 


1801 


DW 


280 


E3F5 


7F00 


DW 


127 


E3F7 


C0 


DB 


0C0H 


E3F8 


00 


DB 





E3F9 


2000 


DW 


32 


E3FB 


0200 


DW 


2 


E3FD 


33 


DB 


33H 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 



CP/M MACRO ASSEM 2.0 #036 *** Cbios For CP/M Ver. 2.2 *** 



?L0G2(#BYTES PER SECTOR/128) + 1 + 
;8 IF DOUBLE SIDED. 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 

* * 
***************************************************************** 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#CPM SECTORS/PHYSICAL SECTOR) -1) + 

LOG2(#BYTES PER SECTOR/128) + 1 + 

8 IF DOUBLE SIDED. 

***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



E3FE 


4000 


DP1024S DW 


64 


E400 


04 


DB 


4 


E401 


0F 


DB 


15 


E402 


00 


DB 





E403 


2B01 


DW 


299 


E405 


7F00 


DW 


127 


E407 


C0 


DB 


0C0H 


E408 


00 


DB 





E409 


2000 


DW 


32 


E40B 


0200 


DW 


2 


E40D 


74 


DB 


74H 



E40E 


3400 


DPB128D DW 


52 


E410 


04 


DB 


4 


E411 


0F 


DB 


15 


E412 


01 


DB 


1 


E413 


F200 


DW 


242 


E415 


7F00 


DW 


127 


E417 


C0 


DB 


0C0H 


E418 


00 


DB 





E419 


2000 


DW 


32 


E41B 


0200 


DW 


2 


E41D 


09 


DB 


9H 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 256 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 
***************************************************************** 



E41E 6800 


DPB256D 


DW 


104 


E420 04 r 




DB 


4 


E421 0F 




DB 


15 


E422 00 




DB 





E423 E601 




DW 


486 


E425 FF00 




DW 


255 



7 CP/M SECTORS /TRACK 

VBSH " '■ 

;BLM 

;EXM 

;DSM 

?DRM 



CP/M MACRO ASSEM 2.0 #037 *** Cbios For CP/M Ver. 2.2 *** 



E427 F0 
E428 00 
E429 4000 
E42B 0200 
E42D 1A 



DB 
DB 
DW 
DW 
DB 



0F0H 



64 

2 

1AH 



;AL0 
;AL1 
,-CKS 
;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPS DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E42E 


7800 


DPB512D DW 


120 


E430 


04 


DB 


4 


E431 


0F 


DB 


15 


E432 


00 


DB 





E433 


3102 


DW 


561 


E435 


FF00 


DW 


255 


E437 


F0 


DB 


0F0H 


E438 


00 


DB 





E439 


4000 


DW 


64 


E43B 


0200 


DW 


2 


E43D 


3B 


DB 


3BH 



;CP/M SECTORS/ TRACK 

;BSH 

;BLM 

;EXM 

;DSM 

;DRM 

;AL0 

;AL1 

;CKS 

;OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 

***************************************************************** 



E43E 


8000 


DP1024D DW 


128 


E440 


04 


DB 


4 


E441 


0F 


DB 


15 


E442 


00 


DB 





E443 


5702 


DW 


599 


E445 


FF00 


DW 


255 


E447 


F0 


DB 


0F0H 


E448 


00 


DB 





E449 


4000 


DW 


64 


E44B 


0200 


DW 


2 


E44D 


7C 


DB 

END IF 


7CH 



CP/M SECTORS/TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* THE FOLLOWING DPB DEFINES A 10 MEGABYTE HARD DISK, WITH 512 * 

* BYTE SECTORS. * 

* * 

***************************************************************** 







IF 


MAXHD NE 






IF 


M26 NE 


E44E 0004 


DPBHD1 


DW 


1024 


E450 05 




DB 


5 



;CP/M SECTORS/ TRACK 
;BSH 



CP/M MACRO ASSEM 2.0 #038 *** Cbios For CP/M Ver. 2.2 *** 



E451 IF 
E452 01 
E453 B507 
E455 FF01 
E457 FF 
E458 FF 
E459 0000 
E45B 0100 
E45D 33 



E45E 
E460 
E461 
E462 
E463 
E465 
E467 
E468 
E469 
E46B 
E46D 



0004 

05 

IF 

01 

B507 

FF01 

FF 

FF 

0000 

4000 

33 



DPBHD2 



DB 


31 


DB 


1 


DW 


1973 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


33H 


DW 


1024 


DB 


5 


DB 


31 


DB 


1 


DW 


1973 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


64 


DB 


33H 



BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

LOG 2 

8 IF 



(#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
(#BYTES PER SECTOR/ 128) + 1 + 

DOUBLE SIDED. 

SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1) + 
(#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



E46E 


0004 


E470 


05 


E471 


IF 


E472 


01 


E473 


B507 


E475 


FF01 


E477 


FF 


E473 


FF 


E479 


0000 


E47B 


7F00 


E47D 


33 



DPBHD3 DW 


1024 


DB 


5 


DB 


31 


DB 


1 


DW 


1973 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


127 


DB 


33H 


END IF 




IF 


M10 NE 


DPBHD1 DW 


336 


DB 


5 


DB 


31 


DB 


1 


DW 


1269 


DW 


511 


DB 


0FFH 


DB 


0FFH 


DW 





DW 


1 


DB 


33H 


DPBHD2 DW 


336 


DB 


5 


DB 


31 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

LOG 2 

8 IF 



SECTORS/ TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1 ) 
(#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 



CP/M SECTORS/ TRACK 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* (.( 

LOG2( 

8 IF 

CP/M 

BSH 

BLM 



#CPM SECTORS/PHYSICAL SECTOR) -1) + 
#BYTES PER SECTOR/128) + 1 + 
DOUBLE SIDED. 
SECTORS/TRACK 



cp/m macro ASSEM 2.0 



#039 



*** Cbios For CP/M Ver. 2.2 *** 



DB 


1 


EXM 


DW 


1280 


DSM 


DW 


511 ; 


DRM 


DB 


0FFH ; 


AL0 


DB 


0FFH ; 


AL1 


DW 


; 


CKS 


DW 


122 ; 


OFF 


DB 


33H ; 


16* ( 

L0G2 
8 IF 


ENDIF 






IF 


M20 NE 




DPBHD1 DW 


672 ; 


CP/M 


DB 


5 ; 


BSH 


DB 


31 ; 


BLM 


DB 


1 ; 


EXM 


DW 


2015 ; 


DSM 


DW 


511 j 


•DRM 


DB 


0FFH ; 


-AL0 


DB 


0FFH ; 


•AL1 


DW 


; 


•CKS 


DW 


1 


•OFF 


DB 


33H ; 


•16*( 

LOG 2 

•8 IF 


DPBHD2 DW 


672 


•CP/M 


DB 


5 


•BSH 


DB 


31 


•BLM 


DB 


1 


•EXM 


DW 


2015 


rDSM 


DW 


511 


?DRM 


DB 


0FFH 


•AL0 


DB 


0FFH 


?AL1 


DW 





?CKS 


DW 


98 


•OFF 


DB 


33H 


■16*( 
•LOG 2 
■8 IF 


DPBHD3 DW 


672 


rCP/M 


DB 


5 


rBSH 


DB 


31 


?BLM 


DB 


1 


fEXM 


DW 


1028 


?DSM 


DW 


511 


?DRM 


DB 


0FFH 


;AL0 


DB 


0FFH 


;AL1 


DW 





?CKS 


DW 


195 


;OFF 


DB 


33H 


?16*( 
?LOG2 
?8 IF 


ENDIF 






ENDIF 







(#CPM SECTORS/ PHYSICAL SECTOR) 
!(#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 



SECTORS/ TRACK 



-1) + 



(#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
:(#BYTES PER SECTOR/ 128) + 1 + 

DOUBLE SIDED. 

SECTORS/ TRACK 



(#CPM SECTORS/ PHYSICAL SECTOR) -1) 
:(#BYTES PER SECTOR/ 128) + 1 + 
DOUBLE SIDED. 

SECTORS/TRACK 



(#CPM SECTORS/PHYSICAL SECTOR) -1) 
(#BYTES PER SECTOR/ 128) + 1 + 
DbUBLE SIDED*. 



***************************************************************** 



CP/M MACRO ASSEM 2.0 #040 *** Cbios For CP/M Ver. 2.2 *** 



* * 

* CP/M DISK PARAMETER HEADERS, UNITIALIZED. * 

* * 

***************************************************************** 



HEADER 



MACRO 

DW 

DW 

DW 

DW 

DW 

DW 

ENDM 



ND,DPB 



0,0,0 

DIRBUF 

DPB 

CSV&ND 

ALV&ND 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



E47E = 

0000 # 



DPBASE 
DN 



DN 
DN 



DN 



E47E+0000 

E480+0000000000 

E486+D8E8 

E488+4EE4 

E48A+4FEA 

E48C+58E9 

E48E+0000 

E490+0000000000 

E496+D8E8 

E498+5EE4 

E49A+46EB 

E49C+4FEA 

E49E+0000 

E4A0+0000000000 

E4A6+D8E8 

E4A8+6EE4 

E4AA+3DEC 

E4AC+46EB 



DN 



E4AE+0000 

E4B0+0000000000 

E4B6+D8E8 ; ' 

E4B8+0000 

E4BA+88EC 

E4BC+3DEC 

E4BE+0000 



EQU 

SET 

IF 

REPT 

HEADER 

SET 

HEADER 

SET 

IF 

HEADER 

SET 

ENDIF 

ENDM 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

REPT 

HEADER 

SET 

ENDM 

DW 

DW 

DW 

DW 

DW 

DW 

DW 



$ 


FIRST 

MAXHD 

%DN # DPBHD1 ; 

DN+1 

%DN,DPBHD2 

DN+1 

(M26 NE 0) OR (M20 NE 0) 

%DN,DPBHD3 

DN+1 



; GENERATE HARD DISK DPH'S FOLLOWED 
; BY FLOPPY DPH'S 





0,0,0 

DIRBUF 

DPBHD1 

CSV0 

ALV0 



0,0,0 

DIRBUF 

DPBHD2 

CSV1 

ALV1 



0,0,0 

DIRBUF 

DPBHD3 

CSV2 

ALV2 

MAXFLOP 

%DN,0 

DN+1 



0,0,0 

DIRBUF 



CSV3 

ALV3 





TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 

SCRATCH 

DIRECTORY BUFFER 

DPB FILLED IN LATER 

DIRECTORY CHECK VECTOR 

ALLOCATION VECTOR 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

•DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 

TRANSLATION TABLE FILLED IN LATER 



CP/M MACRO ASSEM 2.0 #041 *** Cbios For CP/M Ver. 2.2 *** 



E4C0+0000000000 
E4C6+D8E8 
E4C8+0000 
E4CA+1 3ED 
E4CC+C8EC 



DW 0,0,0 

DW DIRBUF 

DW 

DW CSV4 

DW ALV4 

ELSE 

REPT MAXFLOP 

HEADER %DN,0 

DN SET DN+1 

ENDM 

REPT MAXHD 

HEADER %DN,DPBHD1 

DN SET DN+1 

HEADER %DN , DPBHD 2 

DN SET DN+1 

IF (M26 NE 0) OR (M20 NE 0) 

HEADER %DN,DPBHD3 

DN SET DN+1 

END IF 

ENDM 

ENDIF 



; SCRATCH 

? DIRECTORY BUFFER 

;DPB FILLED IN LATER 

7 DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 

; GENERATE FLOPPY DPH ' S FOLLOWED BY 
HARD DISK DPH'S 



***************************************************************** 

* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

***************************************************************** 



E4CE 0000 
E4D0 00 
E4D1 00 
E4D2 0000 
E4D4 00 
E4D5 00 
E4D6 0000 
E4D8 = 



CPMSEC DW 

CPMDRV DB 

CPMTRK DB 

TRUESEC DW 

BUFDRV DB 

BUFTRK DB 

BUFSEC DW 

BUFFER EQU $ 



CP/M SECTOR # 

CP/M DRIVE # 

CP/M TRACK # 

DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

DRIVE THAT BUFFER BELONGS TO 

TRACK THAT BUFFER BELONGS TO 

SECTOR THAT BUFFER BELONGS TO 



***************************************************************** 

* * 

* SIGNON MESSAGE OUTPUT DURING COLD BOOT. * 

* * 

***************************************************************** 



HEXNUM MACRO 
IF 
DB 

ELSE 
DB 

ENDIF 
IF 
DB 

ELSE 
DB 

ENDIF 
ENDM 



NUM 

(NUM/16) > 9 

(NUM/16 AND 0FH) + 'A' - 10 

(NUM/16 AND 0FH) + '0' 

(NUM AND 0FH) > 9 

(NUM AND 0FH) + 'A' - 10 

(NUM AND 0FH) + '0' 



CP/M MACRO ASSEM 2.0 



#042 



*** Cbios For CP/M Ver. 2.2 **' 



E4D8 


0D0A0A PROMPT 


DB 


ACR,ALF,ALF 


E4DB 


4D6F72726F 


DB 


'Morrow Designs ' 


E4EA 


36 


DB 


V0'+MSIZE/10 


E4EB 


30 


DB 


'0'+(MSIZE MOD 10) 


E4EC 


4B2043502F 


DB 


'K GP/M ' 


E4F3 


32 


DB 


CPMREV/l0+'0' 


E4F4 


2E 


DB 


1 1 

• 


E4F5 


32 


DB 


(CPMREV MOD 10)+'0' 


E4F6 


2C20436269 


DB 


1 , Cbios rev ' 


E502 


322E 


DB 


REVNUM/l0+ , 0' 


E504 


38 


DB 


REVNUM MOD 10+' 0' 






IF 


MAXHD NE 


E505 


2E 


DB 


• I 

• 


E506 


32 


DB 


MREV/l0+'0' 


E507 


36 


DB 


MREV MOD 10+'0' 






IF 


(M10 OR M20) AND SDELAY 






DB 


'M' 






ENDIF 








IF 


(M10 OR M20) AND NOT SD 






DB 


'F' 






ENDIF 








ENDIF 




E508 


0D0A 


DB 


ACR,ALF 


E50A 


466F7220 


DB 


'For ' 






IF 


MAXFLOP NE 


E50E 


6120446973 


DB 


'a Disk Jockey 2D @ ' 






HEXNUM 


%(ORIGIN/256) 


E521+46 


DB 


(240/16 AND 0FH) + 'A' 


E522+30 


DB 


(240 AND 0FH) + '0' 


E523 


30304820 


DB 
ENDIF 


'00H ' 






IF 


(MAXHD NE 0) AND (MAXFL< 


E527 


616E6420 


DB 
ENDIF 


'and ' 






IF 


MAXHD NE 






IF 


MAXHD EQ 1 


E52B 


616E20 


DB 
ENDIF 


'an ' 






IF 


MAXHD EQ 2 






DB 


'two ' 






ENDIF 








IF 


MAXHD EQ 3 






DB 


'three ' 






ENDIF 








IF 


MAXHD EQ 4 






DB 


' four ' 






ENDIF 








IF 


MREV EQ 10 




"* i. j- 


DB 


'M10 ' 






ENDIF 








IF 


MREV EQ 20 






DB 


'M20 * 






ENDIF 





;CP/M MEMORY SIZE 
;CP/M VERSION NUMBER 



; CBIOS REVISION NUMBER 



- IE 



CP/M MACRO ASSEM 2.0 #043 *** Cbios For CP/M Ver. 2.2 * 



** 



E52E 4D323620 
E532 6861726420 

E53B 204020 

E53E+35 
E53F+30 
E540 482E 

E542 0D0A 

E544 0D0A 

E546 2020202020 

E560 0D0A 

E562 2020202020 

E57E 0D0A 

E580 2020202020 

E59B 0D0A 

E59D 00 



IF 


MREV EQ 26 


DB 


'M26 ' 


ENDIF 




DB 


"hard disk' 


IF 


MAXHD NE 1 


DB 


•s' 


ENDIF 




DB 


' @ ' 


HEXNUM 


%HDORG 


DB 


(80/16 AND 0FH) + '0' 


DB 


(80 AND 0FH) + '0* 


DB 


•H. ' 


ENDIF 




DB 


ACR, ALF 


DB 


ACR, ALF 


DB 


THE W6GO/K6HHD LIST' 


DB 


ACR, ALF 


DB 


1 Electronics Enterprises' 


DB 


ACR, ALF 


DB 


' Rio Linda, California' 


DB 


ACR, ALF 


DB 






***************************************************************** 

* * 

* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, * 

* TERMINATED WITH A NULL. * 

* * 

***************************************************************** 



;GET A CHARACTER OF THE MESSAGE 

;BUMP TEXT POINTER 

;TEST FOR END 

; RETURN IF DONE 

;SAVE POINTER TO TEXT 

; OUTPUT CHARACTER IN C 

; OUTPUT THE CHARACTER 

7 RESTORE THE POINTER 

; CONTINUE UNTIL NULL REACHED 

***************************************************************** 

* * 

* CBOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 

* WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



E59E 7E 


MESSAGE MOV 


A,M 


E59F 23 


I NX 


H 


E5A0 A7 


ANA 


A 


E5A1 C8 


RZ 




E5A2 E5 


PUSH 


H 


E5A3 4F 


MOV 


C,A 


E5A4 CD0CDD 


CALL 


COUT 


E5A7 El 


POP 


H 


E5A8 C39EE5 


JMP 


MESSAGE 



E5AB 310001 

E5AE 3EC0 
E5B0 320300 
E5B3 CD38DE 

E5B6 21D8E4 
E5B9 CD9EE5 
E5BC AF 



CBOOT LXI 



SP,TPA 



MVI 


A, INTIOBY 


STA 


IOBYTE 


CALL 


TINIT 1 


LXI 


H, PROMPT 


CALL 


MESSAGE 


XRA 


A 



;SET UP STACK 



^INITIALIZE THE TERMINAL 

PREP FOR SENDING SIGNON MESSAGE 
SEND THE' PROMPT 
SELECT DISK A 



cp/m macro ASSEM 2.0 



#044 



'** Cbios For CP/M Ver. 2.2 *** 



E5BD 32D0E4 
E5C0 320400 



E5C3 3261DF 

E5C6 2103DD 
E5C9 2201DD 
E5CC C358DE 



STA 


CPMDRV 


STA 


CDISK 


IF 


(MAXFLOP 


STA 


FLOPFLG 


ENDIF 




LXI 


H,BIOS+3 


SHLD 


BIOS+1 


JMP 


GOCPM 



E5CF 



E6D8 



DS 

IF 
DS 

ENDIF 



512-($-BUFFER) ;MAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 

MAXFLOP NE 

512 ?ADDITIONAL SPACE FOR FLOPPIES IK SECTORS 



E8D8 



DIRBUF 



IF 
DS 

ENDIF 



(MAXFLOP NE 0) OR (MAXHD NE 0) 
128 ; DIRECTORY BUFFER 



ALLOC 

ALV&ND 

CSV&ND 



MACRO 
DS 
DS 
ENDM 



ND,AL,CS 

AL 

CS 



0000 # 



DN 



SET 









IF 


NOT FIRST 




REPT 


MAXFLOP 




ALLOC 


%DN,75,64 


DN 


SET 


DN+1 




ENDM 






REPT 


MAXHD 




IF 


M26 NE 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 247,0 


DN 


SET 
ENDIF 


DN+1 




IF 


M10 NE 




ALLOC 


%DN, 159,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 161,0 


DN 


SET 
ENDIF 


DN+1 




IF 


M20 NE 




ALLOC 


%DN, 252,0 


DN 


SET 


DN+1 




ALLOC 


%DN, 252,0 


DN 


SET 


■-■ DN+'l 




ALLOC 


%DN, 129,0 


DN 


SET 

ENDIF 

ENDM 


DN+1 



CP/M MACRO ASSEM 2.0 
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** Cbios For CP/M Ver. 2.2 *** 



ELSE 







REPT 


MAXHD 






IF 


M26 NE 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 247,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M10 NE 






ALLOC 


%DN, 159,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 161,0 




DN 


SET 
ENDIF 


DN+1 






IF 


M20 NE 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 252,0 




DN 


SET 


DN+1 






ALLOC 


%DN, 129,0 




DN 


SET 

ENDIF 

ENDM 


DN+1 


E958+ 


ALV0 


DS 


247 


EA4F+ 


CSV0 


DS 





EA4F+ 


ALV1 


DS 


247 


EB46+ 


CSV1 


DS 





EB46+ 


ALV2 


DS 


247 


EC3D+ 


CSV2 


DS 









REPT 


MAXFLOP 






ALLOC 


%DN,75,64 




DN 


SET 
ENDM 


DN+1 


EC3D+ 


ALV3 


DS 


75 


EC88+ 


CSV3 


DS 


64 


ECC8+ 


ALV4 


DS 


75 


ED13+ 


CSV4 


DS 
ENDIF 


64 


ED53 




END 





CP/M MACRO ASSEM 2.0 



#046 



*** Cbios For CP/M Ver. 2.2 *** 



0006 


AACK 


E200 


ACCOK 


000D 


ACR 


0003 


AETX 


000A 


ALF 


E958 


ALV0 


EA4F 


ALV1 


EB46 


ALV2 


EC3D 


ALV3 


ECC8 


ALV4 


DEAB 


AUTOFLG 


CF00 


BDOS 


A000 


BIAS 


DD00 


BIOS 


E4D4 


BUFDRV 


0030 


BUFF 


E4D8 


BUFFER 


E4D6 


BUFSEC 


E4D5 


BUFTRK 


E0DE 


BUFWRTN 


E2F4 


BUILD 


E5AB 


CBOOT 


C700 


CCP 


0004 


CDISK 


DE03 


CICRT 


DE08 


CIPTR 


DD88 


CITBLE 


F003 


CITTY 


DDF 3 


CIUC1 


DE08 


CIUR1 


DE08 


CIUR2 


DEA3 


CLDBOT 


DE8E 


CLDCMND 


001A 


CLEAR 


DF6D 


CLOPP 


DE25 


COCRT 


DEAC 


COLDBEG 


DEAC 


COLDEND 


DDC9 


COLPT 


0004 


COMPLT 


DD42 


CONIN 


DD48 


CONIN1 


DD57 


CONOUT 


DD36 


CONST 


DDC9 


COPTP 


DE46 


COPTR 


DE4D 


COPTR1 


DD90 


COTBLE 


F006 


COTTY 


DDD4 


COUL1 


DDF 2 


COUNT 


DDC9 


COUP1 


DDC9 


COUP2 


DD0C 


COUT 


E0BE 


CPMDMA 


E4D0 


CPMDRV 


0016 


CPMREV 


E4CE 


CPMSEC 


E4D1 


CPMTRK 


DE1C 


CSCRT 


DE1C 


CSPTR 


DD3C 


CSREADR 


DDB8 


CS RTBLE 


DDB0 


CSTBLE 


DE14 


CSTTY 


DDFF 


CSUC1 


DE1C 


CSUR1 


DE1C 


CSUR2 


EA4F 


CSV0 


EB46 


CSV1 


EC3D 


CSV2 


EC88 


CSV3 


ED13 


CSV4 


DEAA 


CWFLG 


0008 


DBLSID 


E037 


DCRC 


E1B2 


DECIDE 


E1AE 


DECIDGO 


E1E0 


DELAY 


E1E3 


DELOOP 


E8D8 


DIRBUF 


E08A 


DIVDONE 


E039 


DIVLOG 


E03B 


DIVLOGX 


E07C 


DIVLOOP 


F400 


DJBOOT 


F003 


DJCIN 


F006 


DJCOUT 


F42D 


DJDEN 


F412 


DJDMA 


DD33 


DJDRV 


F42A 


DJERR 


F409 


DJHOME 


F400 


DJRAM 


F415 


DJREAD 


F40F 


DJSEC 


F41B 


DJSEL 


F430 


DJSIDE 


F427 


DJSTAT 


F40C 


DJTRK 


F021 


DJTSTAT 


F418 


DJWRITE 


DEFD 


DONOP 


E43E 


DP1024D 


E3FE 


DP1024S 


E40E 


DPB128D 


E3CE 


DPB128S 


E41E 


DPB256D 


E3DE 


DPB256S 


E42E 


DPB512D 


E3EE 


DP35123 


E47E 


DPBASE 


E44E 


DPBHD1 


E45E 


DPBHD2 


E46E 


DPBHD3 


E2FF 


DRIVES 


DFD2 


DRVHD 


E2E9 


DRVPTR 


0020 


DRVRDY 


0007 


DSKCLK 


E099 


DTSLOP 


0005 


ENTRY 


E16F 


FILL 


0001 


FIRST 


DF61 


FLOPFLG 


DF7D 


FLOPOK 


E0DD 


FLUSH 


E197 


FREAD 


E042 


GETDP3 


E233 


GETSPT 


DE58 


GOCPM 


E250 


HDADD 


0051 


HDCMND 


0050 


HDCNTL 


0053 


HDDATA 


E2FB 


HDDISK 


E213 


HDDMA 


E1BA 


HDDRV 


0052 


HDFUNC 


E1CB 


HDHOME 


0050 


HDORG 


E2B4 


HDPREP 


E236 


HDREAD 


0051 


HDRESLT 


0004 


HDRLEN 


E221 


HDSEC 


E2D9 


HDSECTR 


E218 


HDSIDE 


0020 


HDSPT 


0050 


HDSTAT 


E1EC 


HDTRK 


E1FA 


HDTRK2 


E26B 


HDWRITE 


E2F5 


HEAD 


DF04 


HOME 


0000 


IDBUFF 


0040 


INDEX 


E005 


INDX1 


E00C 


INDX2 


00C0 


INT I OB Y 


E0CB 


INTO 


0003 


IOBYTE 


0003 


ISBUFF 


DD77 


LIST 


DD7A 


LIST1 


DD82 


LISTST 


0003 


LOGDSK 


DE30 


LSLPT 


DDC0 


LSTBLE 


DD93 


LTBLE 


0000 


M10 


0000 


M20 


0001 


M26 


0002 


MAXFLOP 


0001 


MAXHD 


00F7 


MDIR 


E59E 


MESSAGE 


E0A8 


MOVE 


E1A3 


MOVER 


E1A5 


MOVLOP 


001A 


MREV 


003C 


MSIZE 


E0FE 


NO AD J ST 


00FB 


NSTEP 


00FC 


NULL 


4A00 


OFFSETC 


0002 


OPDONE 


F000 


ORIGIN 


E0C6 


OUTOF 


DD72 


PNCH1 


E0EA 


PREP 


E29A 


PROCESS 


E4D8 


PROMPT 


0004 


PSTEP 


DDA0 


PTBLE 


DD6C 


PUNCH 


DDE9 


PWAIT 


E0C1 


RDWR 


DD62 


READER 


E06A 


READ 


DD65 


READERA 


DD68 


READR1 


DE35 


READY 


E06E 


REDWRT 


000A 


RETRIES 


0002 


RETRY 


E0F3 


RETRYLP 


E150 


RETRYOP 


00 1C 


REVNUM 


0001 


RSECT 


DDA8 


RTBLE 


E256 


RTLOOP 


0005 


SCENBL 


0001 


SDELAY 


0200 


SECLEN 


E0AD 


SECPSEC 


E06F 


SECSIZ 


DF0B 


SECTRAN 


DD4C 


SELDEV 


DEFE 


SETDMA 


DF46 


SETDRV 


E01A 


SETDRV1 


DEF8 


SETSEC 


E1E1 


SETTLE 


DF06 


SETTRK 


DF21 


SIDEA 


DFC2 


SIDEOK 


DF24 


SIDEONE 


DF2A 


SIDETWO 


E204 


SLOOP 


DE17 


STAT 


E1D0 


STEPO 


DFEE 


TDELAY 


DE38 


TINIT 


0001 


TKZERO 


0008 


TMOUT 


0100 


TPA 


DF13 


TRANFP 


DF42 


TRANHD 


E4D2 


TRUESEC 


0008 


VI OX 


DEAD 


WARMBEG 


DEAD 


WARMEND 


DED6 


WARMLOD 


DEE8 


WARMRD 


DD03 


WBOOTE 


DEAE 


WBOOT 


0000 


WBOT 


000F 


WENABL 


0010 


WFAULT 


DEB2 


WFLG 


000B 


WRESET 


E063 


WRITE 


E0D5 


WRITTYP 


DEEB 


WRMREAD 


E219 


wsdone: 


0005 


WSECT 


E277 


WTLOOP 


E33D 


XLT124 


E300 


XLT128 


E31B 


XLT256 


E350 


XLT512 


E05B 


XLTS 


E2D8 


ZKEY 


E033 


ZRET 



